Supportnet / Forum / Tabellenkalkulation

Einen schönen Abend zusammen, ich würde Euch gerne um Hilfe bitten zu folgendem VBA-Code, der mir freundlicherweise zur Verfügung gestellt wurde und den ich versuche zu ergänzen: If Target.Column = 12 Then Dim Zähler% Kundennummer = Left(Mid(ComboBox2.Value, InStr(1, ComboBox2.Value, "(") + 2), Len(Mid(ComboBox2.Value, InStr(1, ComboBox2.Value, "(") + 1)) - 3) For Zähler = 2 To Worksheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row If (Worksheets("Daten").Cells(Zähler, 1) = Kundennummer) And (Worksheets("Daten").Cells(Zähler, 5) = Cells(Target.Row, 2)) Then Worksheets("Daten").Cells(Zähler, 13) = Cells(Target.Row, 12) End If [b] If (Worksheets("Daten").Cells(Zähler, 1) = Kundennummer) And (Worksheets("Daten").Cells(Zähler, 5) = Cells(Target.Row, 2)) Then Worksheets("Daten").Cells(Zähler, 15) = Cells(Target.Row, 13)[/b] End If Next End If End If End Sub Der erste Teil funktioniert einwandfrei, den fett markierten Codeteil habe ich ergänzt um eine weitere Zelle von einen zum andern Blatt zu übergeben - funktioniert aber nicht. Steht irgendwie in Verbindung mit dem nicht markierten Code. Danke Euch vielmals vorab für Eure Hilfe, Gruß, meikel

• Excel schließen (VBA)
• VBA-Code funktioniert nicht richtig
• VBA Code eingeben/ wie ?
• VBA-Editor öffnen und schließen