Hallo zusammen,
Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.
Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.
Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.
Wäre cool wenn jemand mir da weiterhelfen könnte :)
Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed
If ActiveSheet.Name = "Tabelle2" Then Sheets("Tabelle1").Select Else Sheets("Tabelle2").Select End If