PSD-Tutorials.de
Forum für Design, Fotografie & Bildbearbeitung
Tutkit
Agentur
Hilfe
Kontakt
Start
Forum
Aktuelles
Besonderer Inhalt
Foren durchsuchen
Tutorials
News
Anmelden
Kostenlos registrieren
Aktuelles
Suche
Suche
Nur Titel durchsuchen
Von:
Menü
Anmelden
Kostenlos registrieren
App installieren
Installieren
JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder einen
alternativen Browser
verwenden.
Antworten auf deine Fragen:
Neues Thema erstellen
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
VBA Zähler schreibt in falsches Feld
Beitrag
<blockquote data-quote="Haui76" data-source="post: 2571749" data-attributes="member: 694765"><p>Da du für jeden Button ein eigenes Sub geschrieben hast musst du leider auch jedes Find() bearbeiten.</p><p></p><p>Für die Zukunft würde ich alles was gleich ist in einen eigenes Sub im "General"-Bereich der Tabelle oder des "Workbooks" schreiben und dieses dann mit Argumenten aufrufen. (Stichwort: Vererbung)</p><p></p><p>Beispiel:</p><p><u><em>General Tabelle</em></u></p><p style="margin-left: 20px">Public sub FindButton(<strong>arg1</strong>)</p> <p style="margin-left: 20px"></p> <p style="margin-left: 20px">Set FindKW = Tabelle2.Range("B2:BA2").Find(WorksheetFunction.WeekNum(Now(), 2),lookat:=xlWhole) </p> <p style="margin-left: 20px">Set FindProd = Tabelle2.Range("A4:A21").Find(<strong>arg1</strong>) </p> <p style="margin-left: 20px">If Not FindKW Is Nothing Then</p> <p style="margin-left: 20px">If Not FindProd Is Nothing Then</p> <p style="margin-left: 20px">x = FindProd.Row</p> <p style="margin-left: 20px">y = FindKW.Column</p> <p style="margin-left: 20px"></p> <p style="margin-left: 20px">Tabelle2.Cells(x, y).Value = Tabelle2.Cells(x, y).Value + 1</p> <p style="margin-left: 20px"></p> <p style="margin-left: 20px">End If</p> <p style="margin-left: 20px">End If</p> <p style="margin-left: 20px">...</p> <p style="margin-left: 20px">end sub</p><p></p><p><u><em>Button1</em></u></p><p style="margin-left: 20px">Public Sub MeinSub()</p> <p style="margin-left: 20px">FindButton(<strong>"MeinProdukt1"</strong>)</p> <p style="margin-left: 20px">end sub</p><p></p><p><u><em>Nicht auf Lauffähigkeit geprüft.</em></u></p></blockquote><p></p>
[QUOTE="Haui76, post: 2571749, member: 694765"] Da du für jeden Button ein eigenes Sub geschrieben hast musst du leider auch jedes Find() bearbeiten. Für die Zukunft würde ich alles was gleich ist in einen eigenes Sub im "General"-Bereich der Tabelle oder des "Workbooks" schreiben und dieses dann mit Argumenten aufrufen. (Stichwort: Vererbung) Beispiel: [U][I]General Tabelle[/I][/U] [INDENT]Public sub FindButton([B]arg1[/B]) Set FindKW = Tabelle2.Range("B2:BA2").Find(WorksheetFunction.WeekNum(Now(), 2),lookat:=xlWhole) Set FindProd = Tabelle2.Range("A4:A21").Find([B]arg1[/B]) If Not FindKW Is Nothing Then If Not FindProd Is Nothing Then x = FindProd.Row y = FindKW.Column Tabelle2.Cells(x, y).Value = Tabelle2.Cells(x, y).Value + 1 End If End If ... end sub[/INDENT] [U][I]Button1[/I][/U] [INDENT]Public Sub MeinSub() FindButton([B]"MeinProdukt1"[/B]) end sub[/INDENT] [U][I]Nicht auf Lauffähigkeit geprüft.[/I][/U] [/QUOTE]
Bilder bitte
hier hochladen
und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.
Zitate einfügen…
Authentifizierung
Der grüne Frosch hüpft über die Hügel an den Bäumen vorbei in die Höhle. Bitte nenne das zweite Wort!
Antworten
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
VBA Zähler schreibt in falsches Feld
Oben