Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl der Iterationen nach Spalte festlegen

Forumthread: Anzahl der Iterationen nach Spalte festlegen

Anzahl der Iterationen nach Spalte festlegen
03.07.2019 21:34:16
Mike
Hi,
ich würde gern meine Variable i für eine Schleife so festlegen, dass sie sich nach der größten Zeile der Spalte A bzw. B richtet.
Bsp. 1:
Spalte A hat 56 Einträge
Spalte B 34 Einträge
i ist gleich 56
Bsp. 2:
Spalte A hat 18 Einträge
Spalte B 134 Einträge
i ist gleich 134
VG
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der Iterationen nach Spalte festlegen
03.07.2019 21:59:35
Regina
Hi,
vielleicht geht es einfacher, aber so sollte es passen:
Public Sub zeile()
Dim rng As Range
Dim i As Long
Dim lng_pos1 As Long
Dim laenge As Long
Dim lng_pos2 As Long
Set rng = ActiveSheet.UsedRange
lng_pos1 = InStr(1, rng.Address, ":") + 2
lng_pos2 = InStr(lng_pos1, rng.Address, "$")
laenge = Len(rng.Address)
i = Right(rng.Address, Len(rng.Address) - lng_pos2)
MsgBox i
End Sub
ich habe hier ein paar Zwischenschritte eingebaut, um das Prinzip klar zu machen, die könnte man auch in die gesamt Berechnung einbauen.
Gruß
Regina
Anzeige
AW: Anzahl der Iterationen nach Spalte festlegen
03.07.2019 22:30:30
onur 

Dim lz1, lz2, i
lz1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lz2 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
i = lz1:If lz2 > i Then i = lz2

AW: Anzahl der Iterationen nach Spalte festlegen
03.07.2019 22:59:19
Daniel
Hi
i = Range("A:B").find(what:="?*", lookin:=xlvalues, searchdirection:=xlprevious, searchorder:=xlbyrows).Row
Gruß Daniel
Anzeige
AW: Anzahl der Iterationen nach Spalte festlegen
04.07.2019 13:18:48
Mike
Lieben Dank für eure Antworten! Ich habe mich fürs Daniels Variante entschieden, da sie am schlankesten ist.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige