Zellen aus Bereich in erste leere Zelle
25.11.2020 15:56:23
Marco
sont bin ich immer nur als Mitleser im Forum.
Nun benötige ich aktib eure Hilfe.
In Tabelle1 suche ich nach "F". In Zelle F soll er auf die erste leere Zelle springen und dort den Text aus Tabelle2 "A2" einfügen. In die nächste leere Zelle dann Tabelle2 "A3" usw.
Bis jetzt habe ich folgendes VBA Makro geschrieben. Nur leider funktioniert es noch nicht.
Sub In_erster_leerer_Zelle_einfügen()
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim Text4 As String
Dim Text5 As String
Dim Text6 As String
Dim Text7 As String
Dim Text8 As String
Dim Text9 As String
Dim Text10 As String
Text1 = Worksheets(2).Range("A2").Value
Text2 = Worksheets(2).Range("A3").Value
Text3 = Worksheets(2).Range("A4").Value
Text4 = Worksheets(2).Range("A5").Value
Text5 = Worksheets(2).Range("A6").Value
Text6 = Worksheets(2).Range("A7").Value
Text7 = Worksheets(2).Range("A8").Value
Text8 = Worksheets(2).Range("A9").Value
Text9 = Worksheets(2).Range("A10").Value
Sheets(1).Select
Cells.Find(What:="F", After:=ActiveCell).Activate
LastR = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
Worksheets(1).Cells(1, LastR) = Text1
End Sub
Kann mir hier jemand weiterhelfen.
Die Testdatei habe ich hochgeladen.
MfG
Marco
https://www.herber.de/bbs/user/141840.xlsm