Schleife zum kopeiren von Daten
09.08.2007 11:14:00
Daten
ich möchte aus einem Arbeitsblatt Daten auslesen und habe dazu ein Makro geschrieben bzw aufgenommen und entsprechend verifiziert.
Aus Tabelle2 sollen Daten ausgelesen werden und in Tabelle1 übernommen werden! Dies soll allerdings unter 2 Bedingungen geschehen:
1. Wenn in Tabelle1 Die Zelle J11 einen bestimmten Wer hat, soll in Tabelle2 eine spezielle Zelle angewählt werden!
"J11" aus Tabelle1 geht in 10er Schritten von 10 bis 1000
wenn der Wert 10 beträgt, soll in Tabelle2 folgendes ablaufen:
Sheets("Tabelle1").Select
If Range("J11") = 10 Then
Sheets("Tabelle2").Select
Range("BP23:CK23").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A16").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle2").Select
Range("BP10:CK10").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A22").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle2").Select
Range("BP36:CK36").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("A28").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' ...... usw... insgesamt sollen 10 passagen kopiert werden
End If
End Sub
Wenn der Wert 20 beträgt, soll in Tabelle2 das selbe ablaufen nur genau 43 Zeilen weiter unten, bei dem Wert 30 86 Zeilen weiter unten usw...
Die zweite Bedingung ist ein Wochentag in Tabelle1. Der Wochentag steht in Tabelle1 in Zelle ("A9")
In meinem Beispiel ist der Tag Montag. Wenn A9 = Dienstag soll in Tabelle2 das selbe ablaufen nur eine Zeile weiter unten, bei MIttwoch 2 Zeilen weiter unten usw...
DAs ist doch bestimmt mit einer Schleife machbar, oder? Nur leider fehlt mir absolut das Können und die Erfahrung, dies umzusetzen! Vielleicht kann mir einer weiterhelfen! Über jeden Ansatz bin ich dankbar!
Danke im voraus, Toni