Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Meikel vom 04.07.2019, 19:08 Options
VBA Code ergänzt - funktioniert nicht richtig
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
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)
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
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
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)
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
Ähnliche Themen
Excel schließen (VBA)
Jugo 15.03.2007 - 311 Hits - 1 Antwort
VBA-Code funktioniert nicht richtig
Meikel 10.05.2007 - 74 Hits -
VBA Code eingeben/ wie ?
MaKa 07.10.2007 - 90 Hits -
VBA-Editor öffnen und schließen
maxim66 14.03.2008 - 98 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
