schleife in Abschnitt

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tino
Dank das du mir helfen willst
Das ist für mich nur ein Test in dem ich versucht habe
in dem MusterBlatt (8001) beim Ankommen, auf den Text (der aus der Datei A Cells(2,2) ist dort der Monat Februar springt.
d.h. Dim heute = Februar. Das Exit Sub ist nur dafür falls Cells(2,2) leer.
Das kleine Makro Funktioniert ja bis auf die For Next Schleife ..die ja auch funktioniert.
Nur kann ich , die Schleifenzahl nicht Vorgeben , da sie im Jeweiligen Abschnitt (Monat)die Notwendige ZeilenAnzahl (var.zwischen 30 bis über 100) nicht vorher bestimmen kann.
Die notwenigen Zeilen (geschätzt) füge ich bei jeder Sitzung vorher ein.
Anbei eine Musterdatei ----Starte das Makro Bitte im Schritt.in der Tab1
Vielen Dank
der kleine michael
https://www.herber.de/bbs/user/47430.xls

Sub Makro1() ' Makro vom "kleinen" michael 'Makro Start in Tabelle1 Dim heute As String Dim AnzahlZellen As Long Dim Bereich As Range heute = Sheets("Tabelle1").Cells(2, 2) Set Bereich = Sheets("8001").Cells.Find(What:=heute, After:=Range("B1"), LookIn:=xlFormulas, _ _ LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True, SearchFormat:=False).Offset(1, -1) AnzahlZellen = Range("B:B").Find("Summe " & heute).Row - Bereich.Row For weiter = 0 To AnzahlZellen - 1 If Bereich.Offset(weiter, 0) = "" Then Bereich.Offset(weiter, 0).Value = "test" 'MsgBox "tu was" End If Next weiter Bereich.Offset(weiter - 1, 0).Select End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread