Schleife
13.06.2005 12:47:00
Robert
ich soll ein Makro schreiben, wo in einer Spalte erst einmal überprüft werden soll, ob etwas drin steht.
Wenn da etwas steht soll dieser Eintrag mit einer anderen Zelle verglichen werden (die Zelle befindet sich in der gleichen Zeile). Hierbei handelt es sich um Datumseinträge, wo in der Zelle AE:Zeile der Wert kleiner sein muss als in der Zelle Z:Zeile.
Falls in der Zelle nichts vorhanden ist, soll in der ersten eine weitere Abfrage erfolgen.
Anbei noch mein erster selbstgeschriebener Versuch.
Sub vergleichen()
' Makro vergleichen
' Makro am 13.06.2005 von erstellt.
Workbooks.Open Range("B3") ' öffne Tabelle - der Pfad ist in Zelle "B3" hinterlegt
ActiveWorkbook.RunAutoMacros xlAutoOpen
Windows("Test_Makro.xls").Activate
Range("A1").Select
Workbooks.Open Range("B4") ' öffne Tabelle - der Pfad ist in Zelle "B4" hinterlegt
ActiveWorkbook.RunAutoMacros xlAutoOpen
Windows("01_Dauerlaufplanung Master.xls").Activate
Range("AE7").Select
StartTabelle = ActiveWorkbook.Name
Startzeile = "7"
'Windows(StartTabelle).Activate
If Range("AE" & Startzeile).Value <> "" Then 'Wenn Zelle ungleich Null, dann
Range("AE" & Startzeile + 1).Select 'Springe in die nächste Zelle
Else 'ansonsten
Do Until Wert_F2 = Wert_StartErprobung 'Vergleiche Quellzelle mit EndZelle
Wert_F2 = Range("AE" & Startzeile).Value 'hier muss aber dann nicht die Startzeile genommen werden, sondern die wo die nicht leere Zelle war
Wert_StartErprobung = Range("Z" & Startzeile).Value ' hier auch
Loop
Windows(ShowReport.xls).Activate
Do Until ZielZeile = EndZeile_ZielDatei
'Anweisungen
ZielZeile = ZielZeile + 1
Loop
Windows(QuellDatei).Activate
QuellZeile = QuellZeile + 1
Loop
' If Range("AE7").Value = "" Then
End
End If
'Windows("Mappe1").Activate
End Sub