Hallo liebe Community,
ich würde gerne daten in einem tabellenblatt (Tabelle1), die in tabelle2 vorhanden sind suchen und die entsprechenden werte in den darauf folgenden spalten der tabelle 1 in tabelle 2 automatisch übernehmen.
Wenn es den wert aus tabelle 2 in tabelle 1 nicht gibt, sollen die entprechenden Zellen leer bleiben.
Ich hoffe ihr könnt mir helfen. Hier mein Code (ich bin ziemlich neu)...
Code-Tags eingefügt. ~Thunderbolt
ich würde gerne daten in einem tabellenblatt (Tabelle1), die in tabelle2 vorhanden sind suchen und die entsprechenden werte in den darauf folgenden spalten der tabelle 1 in tabelle 2 automatisch übernehmen.
Wenn es den wert aus tabelle 2 in tabelle 1 nicht gibt, sollen die entprechenden Zellen leer bleiben.
Ich hoffe ihr könnt mir helfen. Hier mein Code (ich bin ziemlich neu)...
Visual Basic-Quellcode
- Sub test()
- Dim m As Integer, n As Integer
- Worksheets(Tabelle1).Activate
- Worksheets(Tabelle2).Activate
- n = 0
- m = 0
- Do While Worksheets("tabelle1").Cells(2, 8 + n).Value <> ""
- If Sheets("tabelle2").Cells(8, 2 + n).Value <> Sheets(Tabelle1).Cells(8, 2 + n).Value Then
- n = n + 1
- End If
- 'Einsetzen der in den tabelle2 gefundenen Werte in den tabelle1
- Worksheets("Tabelle1").Cells(8, 2 + n).Value = Worksheets(Tabelle2).Cells(8, 2 + n).Value
- Worksheets("Tabelle1").Cells(9, 2 + n).Value = Worksheets(Tabelle2).Cells(9, 2 + n).Value
- Worksheets("Tabelle1").Cells(10, 2 + n).Value = Worksheets(Tabelle2).Cells(10, 2 + n).Value
- Worksheets("Tabelle1").Cells(11, 2 + n).Value = Worksheets(Tabelle2).Cells(11, 2 + n).Value
- Worksheets("Tabelle1").Cells(8, 2 + n).Value = Worksheets(Tabelle2).Cells(8, 2 + n).Value 'tabelle2
- Loop
- 'Falls die Tabelle ist, und die Firma nicht gefunden wurde, wird die Zelle leer gelassen
- m = n + 1
- If Worksheets("tabelle2").Cells(8, 2 + m).Value = "" Then Worksheets("tabelle1").Cells(8, 2 + n).Value = ""
- End Sub
Code-Tags eingefügt. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()