schleife in Abschnitt
05.11.2007 15:53:00
michael
Herzlichen Gruß ins Forum
.Ist NUR ein TESTMAKRO
Sub Makro1()
Dim heute-----------------------------------Datei A-Monat Februar
heute = Cells(2, 2)
If Cells(2, 2) = ("") Then
MsgBox "FEHLER !!!!!!!!!"
End If
Exit Sub
Sheets("8001").Select--------------------Datei B Abschnitt Februar
Cells.Find(What:=heute, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
ActiveCell.Offset(1, -1).Select
Ab hier meine Bitte bzw. Frage
Ich Kopiere von der Datei A xzeilen in einen Abschnitt der Datei B
Die Datei B besteht aus einem TabellenBlatt unterteilt in
Jänner
Februar
bis Dezember
Die ZeilenAnzahl in den Abschnitten ist unterschiedlich groß.
Wenn ich beginne ist die erste Zeile LEERWenn ich aussteige und nach einer Pause
(na ja, was ist das eigentlich) wieder einsteige sind natürlich etliche Zeilen belegt.
Mit meinem Funktionierend Makro lande ich immer in der 1sten..n-Zeile nach dem MonatsText
z.B. Februar
For weiter = 1 To 3
If ActiveCell = ("") Then
ActiveCell.Value = ("test") 'MsgBox "tu was"
End If
ActiveCell.Offset(1, 0).Select
Next weiter
End Sub
----------------------------------------------------------------
jetzt such ich mir die nächste leere Zelle (siehe Makro)
diese For Next Schleife ist aber nicht zielführend
da ich im vorhinein die benötigte ZeilenAzahl nicht kenne.
Wie finde ich die nächste leere Zeile in DIESEM ABSCHNITT
Könnt Ihr mir Bitte helfen.
Danke
der kleine michael