Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen Zählen (VBA)

Zeilen Zählen (VBA)
24.10.2022 16:02:06
Marc
Hallo zusammen
Ich habe einen Range "ThisWorkbook.Sheets("Liste").Range("A4:A500")". Per Userform "Dropdown" wähle ich nun einen Text aus und möchte nun wissen, in welcher Zeile sich dieser Text befindet. Also A4 wäre 1, A5 wäre 2, A6 wäre 3 usw.
Könnte mir hier jemand helfen, wie ich das per VBA auslesen könnte?
Vielen Dank für die Hilfe
Marc

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Zählen (VBA)
24.10.2022 16:07:46
GerdL
Moin Marc,

MsgBox Application.Match(UserForm1.ComboBox1.Value, Range("A4:A500"), 0)
Gruß Gerd
Makrorekorder ist dein Freund
24.10.2022 16:15:31
Yal
Hallo Marc,
in dem Fall hast Du einen Wert, und du willst sie finden. In Excel würdest Du Strg+f drücken, Wert eingeben, Enter.
Mache dann genau das, aber unter laufende Makrorekorder (MR). Dann hast Du den Code, den Du suchst.
Wenn ich einen Code hier liefern müsste, ich habe keinen parat, und Code, den ich mit wenig Klick fertiggebacken bekomme, merke ich mir nicht, dann würde ich den MR starten.
VG
Yal
AW: Zeilen Zählen (VBA)
24.10.2022 16:49:25
Marc
Vielen Dank für die Rückmeldungen und die Hilfe. Der Application.Match funktioniert leider nicht. Ich erhalte die Fehlermeldung Typen unverträglich.
Ich bin nun nicht sicher, ob ich mich richtig ausgedrückt habe. Ich suche nicht den Wert sondern die Startposition. Sprich, wenn A4 die 1 Position ist, dann suche mit dem Wert über die Combobox die Startposition im Range. Also einfach eine Zahl von 1 - 100 im Range.
Vielen Dank nochmals für die weitere Hilfe.
Beste Grüsse
MArc
Anzeige
ich hätte gern gehabt, ...
24.10.2022 18:26:13
Yal
... dass Du sagst "den Makrorekorder habe ich auch probiert". Aber vielleicht hast Du auch, aber nur unvollständig darüber berichtet.
Der Makrorekorder, den ich gerade eben angestossen habe, um Dir eine qualifizierte Antwort zu geben, liefert:

    Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:="Aug", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
(ich habe eine Monatsliste ab A5 aufgebaut und nach "Aug" gesucht)
Also es "aktiviere" die Zelle, wo der Treffer liegt. Mehr nicht. Vielleicht war das der Punkt, wo Du nicht weiterkam. Gut, dass wir (also eig. ich) darüber gesprochen haben.
Man braucht eine Variable vom Typ Range, die durch Find gesetzt wird. Wird nichts gefunden, bleibt diese "Nothing".
Also lange Rede (warum schreibe ich eigentlich 20 mal mehr als den Fragenden?) hier ein Beispielcode:

Sub Test()
Suche "Aug"
End Sub
Sub Suche(GesuchteWert As String)
Dim Z As Range
With Worksheets(1).Range("A5:A18")
Set Z = .Find(What:=GesuchteWert, LookAt:=xlWhole, MatchCase:=False)
If Not Z Is Nothing Then
MsgBox "Gesuchte Wert """ & GesuchteWert & """ wurde in Zelle " & Z.Address & " gefunden." & vbCr _
& "Es Entspricht Zeile " & (Z.Row - .Row + 1) & " vom geprüften Bereich " & .Address
Else
MsgBox "Gesuchte Wert """ & GesuchteWert & """ wurde in " & .Address & " nicht gefunden."
End If
End With
End Sub
Normalerweise, wenn man den Cursor auf dem Schlüsselwort (hier "Find") und F1 Drückt, kommt man an dem Online-Hilfe zum Schlüsselwort. Leider im Fall von Find gibt es zwei und es kommt immer an dem falschen Eintrag. Richtig ist:
https://learn.microsoft.com/en-us/office/vba/api/excel.range.find
Inkl. Beispiel
VG
Yal
Anzeige
AW: ich hätte gern gehabt, ...
25.10.2022 12:16:43
Marc
Hallo Yal
Vielen Dank für die Erklärungen und die Hilfe. Ich bin zwar nicht mehr Anfänger aber auch kein Profi. Ich bin dir daher sehr dankbar um den Code, welcher bestens funktioniert. Ist genau das, was ich gesucht habe und für mich abändern kann.
Vielen Dank und beste Grüsse
Marc
Vielen Dank für die Rückmeldung
25.10.2022 13:41:11
Yal
wichtig ist, dass Du den Übergang zwischen den sehr grob geschnittenen Code aus dem Rekorder und den angepassten, wie hier.
Also: es war nicht zur Strafe, sondern zur Übung.
VG
Yal
AW: Zeilen Zählen (VBA)
24.10.2022 18:32:48
GerdL
Kannst du bitte eine Beispieldatei hochladen, Marc.
Gruß Gerd

302 Forumthreads zu ähnlichen Themen

Anzahl Zeilen mit identischen Eintrag errechnen
Matthias

Hallo,
ich will die folgenden Aufgabe per Makro lösen: ich will wissen, wie viele Zeilen es unterhalb einer Ausgangszeile mit dem gleichen Inhalt gibt, bis der Inhalt der nächsten darunter liegenden Zelle wechselt.
Beispiel:
Dresdner Bank Banken
Historie
Historie
...
16.10.2008 12:50:00
Thread-ID: 1016833
2 Beiträge
Anzeige
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Alle Zeilen mit bestimmtem Inhalt löschen
Lutz

Hallo Excel-Profis,
ich habe eine Tabelle die "Liste" heisst und in der Buchungen per Makro eingefügt werden.
Jetzt möchte ich per Makro einen Vorgang der aus mehreren Zeilen bestehen kann löschen.
D.h. ich möchte per Box fragen welcher Beleg (steht in Spalte "E") gelöscht werden so...
13.03.2009 18:53:36
Thread-ID: 1059979
3 Beiträge
Anzeige
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Vba count.row bei leer zeilen
Carmen

Hallo zusammen,
hänge mal wieder bei vba. und zwar hab ich eine export tabelle (Tabelle1)die zwischen den relevanten Zeile leere zeilen und spalten hat. nun möchte ich diese tabelle in ein neues blatt kopieren, weiß aber nicht wie ich die größe ermitteln kann trotz der leerzeilen und spalte...
23.05.2009 15:46:16
Thread-ID: 1076869
16 Beiträge
Gefüllte Zeilen zählen und Variable zuweisen
Bowl

Hallo zusammen
Hab da noch ein kleines allerletztes Problem ^^
Wie kann man in einer-Excel Tabelle die Anzahl der Gefüllten Zeilen in den denen eine bestimmte Zelle gefüllt ist zählen und den Wert einer Variablen zuweisen?
Hab da schon einiges versucht, das ganze klappt aber irgen...
01.07.2009 12:00:13
Thread-ID: 1085646
14 Beiträge
Anzahl Codezeilen ermitteln
Joachim

Hi,
Kurze Frage
geht es eingentlich per VBA, die Anzahl der Zeilen Code, aus dem ein komplettes Projekt besteht, zu ermitteln ?
Falls Ja, wie ?
Danke
Joachim
22.07.2009 14:40:58
Thread-ID: 1090543
27 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

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
1
5
3
2
2
4
15
13
26
2
7
5
7
3
6
7
3
5
2
5
10
3
15
2
4