VBA-letzte Zelle finden, Datenbereich markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen
ich kann dir nur begrenzt weiterhelfen, weil ich einige Teile deiner Aufgabe nicht verstanden habe.
Hier mal eine geaenderte Makro Version -Find ohne Select-!! Ist über eine Set Anweisung eleganter.
Grosser Vorteil, ich gebe den Suchwert immer in eine Variable ein, sonst muss man das Makro in Cells.Find immer auf andere Werte umschreiben!! Solltest du auch beim normalen Suchlauf mit .Activate über Variable machen. Den Start ab wo gesucht wırd kann man in After: festlegen. z.b. mit Range("xx")
Zwei Dinge habe ich noch nicht verstanden, wozu du LastZell überhaupt brauchst? Das ist im Code nicht ersichtlich.
Und brauchst du LastZell von Spalte A, oder in der gefundenen Spalte?
Was meinst du genau mit Kennzeichnung in Spalte A? Das verstehe ich im Augenblick noch nicht.
Was ist mit der Formel? Soll die nur in einer Zelle oder in mehreren Zellen gesetzt werden?
Bei der Set-Anweisung must du unbedingt mit If Not is Nothing arbeiten um Laufzeitfehler zu vermeiden!
mfg Hans

Sub Test()
Dim rFind As Range   'Find Adresse  (als Set)
Dim sWert As String  'Such-Wert  (variabel!!)
sWert = "1.3.1."   'so ist der Suchwert variabel!!
Set rFind = Cells.Find(What:=sWert, After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If rFind Is Nothing Then MsgBox sWert & " nicht gefunden": Exit Sub
If Not rFind Is Nothing Then
'LastZell in der gefundenen Spalte durchführen!!
lz = Cells(Rows.Count, rFind.Column).End(xlUp).Row
rFind.Offset(0, -1).FormulaR1C1 = "=IF(RC[2]""403834"",MID(RC[1],1,4),0)"
'** nur zum Test ob Find Makro richtig funktioniert
rFind.Offset(0, -1).Select
MsgBox lz   'LastZell anzeigen
'** diesen Teil nachher löschen, dient nur zum Test!!
End If
End Sub

Hallo Hans,
anbei ein Miniausschnitt aus der Tabelle. Ziel ist das Einfügen der Zwischensummen wie in der Tabelle fett dargestellt. Problematisch für mich ist das Füllen der Spalte A. Dein Makro findet in B8 "1.3.1." und setzt in A8 dann die ersten 4 Zeichen aus B8 nämlich "1.3.". Gut! Dieses Setzen der ersten 4 Zeichen sollte in Spalte A dann komplett bis Tabellenende also hier A23 geschehen! Danach erfolgt das Setzen der Summenformeln in den Spalten P und T, ist aber kein Problem. Das kann ich dann wieder. Danach geht es analog weiter mit "1.4.2." wo etwas mehr Zeichen in die Zellen von A übernommen werden usw.
Der gelb markierte Wert "403834" wird beim Setzen von "1.3." durch die Formelbedingung in Spalte A ausgeschlossen (Sonderfall). Es bleibt also alles in ein und derselben Tabelle. Ich werde sie monatlich mit neuen Datensätzen füllen. Es werden immer ein paar neue Zeilen hinzukommen, wie viele und an welcher Stelle ist ungewiss. Ich habe alle Formeln drin gelassen zum besseren Verständnis.
VG Jürgen
https://www.herber.de/bbs/user/123680.xlsx

Beliebteste Forumthreads (12 Monate)

VBA-letzte Zelle finden, Datenbereich markieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

342 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-letzte Zelle finden, Datenbereich markieren

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

342 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread