Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife

Schleife
13.06.2005 12:47:00
Robert
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife
13.06.2005 13:36:59
ede
hallo robert
versuchs mal mit ner formel
=WENN(ISTLEER(A2);"ZELLE LEER";WENN(A2&ltB2;"KLEINER";"NICHT KLEINER"))
viel erfolg
AW: Schleife
13.06.2005 13:45:48
robert
Hallo ede,
danke für den Tip, nur muss es leider als VBA Makro realisiert werden.
Gruß Robert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige