Re: Bestimmte Formel finden
12.05.2003 07:33:14
Petra
hallo Boris..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.
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.
Dann wieder zurück zur Tb“TB1“ 3 Spalten nach rechts und eins hoch, die zeit kopieren.in Tb“ TB1“ Spalte C ab Zeile 9 einfügen.
In Tb „TB1“ zurück gleiche Zeile wie vorher und dort in Spalte Q die zeit kopieren und in Tb“ TB2“ Spalte D ab Zeile 9 einfügen.
In Spalte E Tb „TB2“ dann die Formel C-D einfügen .
Zurück Tb“TB1“ Spalte F die zeit(ist alles die gleiche Zeile nur andere Spalten wie E)
Kopieren und in Tb“ TB2“ Spalte F ab Zeile 9 einfügen.
Wieder zurück Tb“ TB1“ Spalte N gleiche Zeile wie soeben und die zeit rauskopieren und in Tb“TB2“ Spalte G einfügen.
Tb“TB2“ Spalte H die Formel einfügen F-G
Tb“ TB1“ Spalte H gleiche Zeile wie soeben die zahl kopieren und Tb“TB2“ in Spalte I einfügen.
Tb“ TB1“ Spalte I gleiche Zeile wie soeben die zahl kopieren und Tb“TB2“ in Spalte J einfügen.
Tb“TB2“ Spalte K die Formel einfügen I-J
Tb“TB1“ Spalte J gleiche Zeile die zahl kopieren und Tb“TB2“ in Spalte L einfügen
Tb“TB1“ Spalte K gleiche Zeile die Zahl kopieren und Tb“TB2“ in Spalte M
Einfügen
Tb“TB2“ Spalte N die Formel einfügen M-L
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.
Ich bedanke mich im vorraus.
Petra