Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Letzte Zeile in mehreren Bereichen finde
15.07.2023 21:15:02
Frank
Hallo

vielleicht kann mir jemand helfen.

ich möchte gerne per VBA die letzte Zeile in mehreren Bereichen finden.

https://www.herber.de/bbs/user/159948.xlsx

Erklärung:
ich habe 4 Bereichen
"B1:D4" - "H1:H4" - "N1:P4" - "T1:V4"

hier möchte ich jetzt die letzte beschriebene Zeile finden
in diesem Fall Zeile 3

kann mir jemand helfen, wie ich diese schnell und unkompliziert finden kann


danke euch

Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile in mehreren Bereichen finde
15.07.2023 22:13:58
onur
Guck mal, was Chat-GPT ausspuckt (sieht diesmal sogar brauchbar aus):
Sub LetzteBeschriebeneZeile()
    Dim Bereich As Range
    Dim letzteZeile As Long
    Dim letzteBeschriebeneZeile As Long
    
    ' Bereich 1: B1:D4
    Set Bereich = Range("B1:D4")
    letzteZeile = Bereich.Rows(Bereich.Rows.Count).Row
    letzteBeschriebeneZeile = letzteZeile
    
    ' Bereich 2: H1:H4
    Set Bereich = Range("H1:H4")
    letzteZeile = Bereich.Rows(Bereich.Rows.Count).Row
    If letzteZeile > letzteBeschriebeneZeile Then
        letzteBeschriebeneZeile = letzteZeile
    End If
    
    ' Bereich 3: N1:P4
    Set Bereich = Range("N1:P4")
    letzteZeile = Bereich.Rows(Bereich.Rows.Count).Row
    If letzteZeile > letzteBeschriebeneZeile Then
        letzteBeschriebeneZeile = letzteZeile
    End If
    
    ' Bereich 4: T1:V4
    Set Bereich = Range("T1:V4")
    letzteZeile = Bereich.Rows(Bereich.Rows.Count).Row
    If letzteZeile > letzteBeschriebeneZeile Then
        letzteBeschriebeneZeile = letzteZeile
    End If
    
    MsgBox "Die letzte beschriebene Zeile ist: " & letzteBeschriebeneZeile
End Sub

Anzeige
AW: Letzte Zeile in mehreren Bereichen finde
16.07.2023 08:15:17
Ulf
Hi Frank,

Public Function bZelle() As Long
    Dim v As Variant, i As Long, j As Long, k As Long, lngMax As Long
    v = Array(Range("B1:D4"), Range("H1:H4"), Range("N1:P4"), Range("T1:V4"))
    For i = 0 To 3
        For j = 1 To 4
            For k = 1 To 4
                If "" > v(i)(j, k) And lngMax  j Then lngMax = j
            Next
        Next
    Next
'ggf. Deaktivieren
    MsgBox lngMax
'
    bZelle = lngMax
End Function
hth
Ulf

AW: Letzte Zeile in mehreren Bereichen finde
16.07.2023 13:00:53
Daniel
Hi

Ungetestet:

Zeile = Range("B1:D4,H1:H4,N1:P4,T1:V4").find(what:="?*", lookat:=xlwhole, lookin:=xlvalues, searchdirection:=xlprevious).row

Grus Daniel

Anzeige
AW: Letzte Zeile in mehreren Bereichen finde
16.07.2023 14:28:42
Jowe
Option Explicit

Sub find_multiRNG_lastRows()
  Dim Int1 As Variant
  Dim Int2 As Variant
  Dim Int3 As Variant
  Dim Int4 As Variant
  Int1 = "letzte Zeile in Rng1 = " & Sheets("Tabelle1").Range("B1:D4") _
    .Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
  Int2 = vbCr & "letzte Zeile in Rng2 = " & Sheets("Tabelle1").Range("H1:H4") _
    .Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
  Int3 = vbCr & "letzte Zeile in Rng3 = " & Sheets("Tabelle1").Range("N1:P4") _
    .Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
  Int4 = vbCr & "letzte Zeile in Rng4 = " & Sheets("Tabelle1").Range("T1:V4") _
    .Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
  Debug.Print Int1; Int2; Int3; Int4
End Sub

Anzeige
AW: Letzte Zeile in mehreren Bereichen finde
17.07.2023 10:29:43
GerdL
Hallo Frank!
Sub Unit()
    Dim X As Long
    X = Application.Max(Range("B1:D4,H1:H4,N1:P4,T1:V4").SpecialCells(2).EntireRow)
    MsgBox X
End Sub
Gruß Gerd

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige