Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zeile in mehreren Bereichen finde

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

312 Forumthreads zu ähnlichen Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Anzeige
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Zählenwenn in mehreren Ranges Highspeed
Jan

Hallo,
Ich muss in mehreren Bereichen überprüfen, ob eine der Zellen in den Bereichen einen Wert enthält. Da die Excelfunktion "Zählenwenn" nur einen Bereich unterstützt, habe ich mir folgende Funktion in VBA geschrieben.
Function ZÄHLE(Wert As String, ParamArray Rng() As Variant) As I...
03.10.2009 14:08:20
Thread-ID: 1106968
15 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Formeln in mehreren Sheets ändern
Sven

Hallo,
ich habe eine Tabelle mit meheren Seiten
Persdaten
Stammdaten
23
24
25
usw.
jetzt habe ich gemerkt, dass ich in allen tabellen Formelfehler habe (außer in Persdaten)
jetzt möchte ich per Makro gern in allen Tabellenblättern diese Fehler beheben.
wi...
16.11.2009 02:44:50
Thread-ID: 1117475
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
3
2
2
18
1
14
1
1
2
2
2
5
2
4
3
5
8
4
3
3
3
11
13