Vielleicht kann mir hier jemand helfen?
Mein Problem ist, daß ich 2 Tabellenblätter habe, in Tb „TB1“ gesucht werden soll und in Tb“TB2“ das gesucht eingefügt werden soll.
In „TB1“ Spalte A wird mir nach Anzahl-Datum gesucht und in „TB2“ Spalte A ab Zeile 9 eingefügt.Das klappt gut....
Jetzt soll automatisch wieder in Tb“TB1 eine Spalte nach rechts „B“ und eins runter, dort die zahl kopieren und in Tb“TB2“ in Spalte B ab Zeile 9 einfügen.
Jetzt soll eigentlich nur in gleicher Zeile wie von Tb“TB1“ gefundenes Anzahl-Datum, aber verschiedene Spalten kopiert und in Tb“TB2 eingefügt werden.(ist alles die gleiche Zeile nur andere Spalten wie E)
Hier ist mein Code für Datum-Anzahl suchen und und einfügen in Tb“TB2“!
Sub Makro11()
Dim S, L, A, Z, s2, SZ, ZEnd As String
Dim C As String
Dim Zelle As String
Cell = "A5"
L = "Aufruf"
A = "Zusammenfassung"
Z = "A9"
Sheets(L).Select
Range(Z).Select
For AnzahlTage = 1 To 20
Cell = Cells.Find(What:="Anzahl", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Cell = True Then
ActiveCell.Font.Color = RGB(200, 50, 50) 'Rot färben
Application.CutCopyMode = False
Selection.Copy
Sheets(A).Select
Range(Z).Select
If ActiveCell.Value > 0 Then
If ActiveCell.Offset(1, 0).Value > 0 Then
Selection.End(xlDown).Offset(1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
End If
End If
Selection.Insert Shift:=xlDown
Sheets(L).Select
End If
Next AnzahlTage
End Sub
Eigentlich muss nur von hier ausgegangen werden, weil sich die zeilen nicht ändern, ausser von Tb“TB1“ spalte B, wo eine Zelle nach unten gegangen werden muss und eine Spalte nach rechts.
Die anderen Aktionen finden in der gleichen Zeile, wie Anzahl-Datum, nur die spalten ändern sich.
Petra