VBA: Wert suchen und übertragen
18.02.2020 14:21:48
Axel
im Netz habe ich verschiedene ähnliche Fragen und Lösungsansätze gefunden, aber nicht genau, was ich vorhabe.
In einer Tabelle2 soll in Spalte A nach einem bestimmten Wert gesucht werden und die nächsten 5 rechts in der selben Zeile stehenden Informationen in ein anderes Tabellenblatt (Tabelle1) ab Zelle A12 kopiert werden.
Der zu suchende Wert steht in Tabelle1 Zelle C8 (das hab ich im Code gar nicht hinbekommen).
Ich hab mal hinter die jeweilige Zeile auskommentiert, wie ich den Code verstanden habe:
Public Sub Themen_nach_Funktion()
Sheets("Tabelle2").Select 'Tabellenblatt Tabelle2 auswählen
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row 'Findet die letzte Zeile der Tabelle
For x = 2 To FinalRow 'Loop über jede Zeile
ThisValue = Cells(x, 1).Value ' Der gesuchte Wert wird in Spalte A gesucht
If ThisValue = "A" Then 'Der Wert, der gesucht wird (hier muss der Wert aus Tabelle1 C8 _
rein)
Cells(x, 1).Resize(2, 5).Copy 'Kopieren der nächsten 5 rechten Felder aus der Zeile _
(B:F)
Sheets("Tabelle1").Select 'Tabelle1 aktivieren
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 'nächste leere Zeile _
identifizieren (hier müsste ab Zeile 12 gesucht werden)
Cells(NextRow, 1).Select 'nächste leere Zeile auswählen
ActiveSheet.Paste 'Kopiertes einfügen
Sheets("Dropdown_UserForm").Select 'zurück zum Tabellenblatt Dropdown_UserForm
End If
Next x ' Loop der Prozedur
End Sub
Ich bin ab 14:30 in Terminen und werde wahrscheinlich erst morgen früh wieder aktiv daran arbeiten.
Schon einmal vielen Dank vorab an alle, die hier jeden Tag unterstützen.
Beste Grüße
Axel