Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zeile ausgeben wo Wert das erste mal vorkommt

VBA: Zeile ausgeben wo Wert das erste mal vorkommt
24.03.2016 09:43:11
Pa
Hallo,
Ich suche einen VBA-Code der folgendes bewirkt:
In Spalte D stehen geordnet Kategorien (M1,M2,M3 usw.)
Die Zeile (z.B. Zeile 20) in der die Kategorie M2 zum ersten mal auftritt, soll unter der Variablen KatM abgespeichert werden ( Also: KatM = 20)
Wie würde ein solcher Code aussehen?
Gruß und Danke im Voraus!

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zeile ausgeben wo Wert das erste mal vorkommt
24.03.2016 09:53:54
Werner
Hallo,
probier mal das hier - in einem allgemeinem Modul
Public Sub test1()
'## Suche Blatt1, SpalteD, Suchbegriff steht in Zelle A1, Suchrichtung von oben nach unten
'## Treffer nur, wenn exakt der Suchbegriff (alleine) in der Zelle in Spalte D steht
Dim KatM As Long
KatM = Sheets("Tabelle1").Columns(4).Find(what:=Range("A1").Value, LookIn:=xlValues, _
lookat:=xlWhole, searchdirection:=xlNext).Row
MsgBox "Fundstelle ist in Zeile " & KatM
End Sub
Gruß Werner

AW: VBA: Zeile ausgeben wo Wert das erste mal vorkommt
24.03.2016 10:00:32
Pa
Perfekt, es funktioniert. Vielen Dank!

AW: Update
24.03.2016 10:07:47
Werner
Hallo,
danke für die Rückmeldung. Hier noch ein kleines Update, hatte ich vergessen. Der Code läuft in einen Fehler wenn der Suchbegriff nicht gefunden wird. Hier jetzt noch mit Abfangen dieses Fehlers.
Public Sub test1()
'## Suche Blatt1, SpalteD, Suchbegriff steht in Zelle A1, Suchrichtung von oben nach unten
'## Treffer nur, wenn exakt der Suchbegriff (alleine) in der Zelle in Spalte D steht
Dim KatM As Long
On Error GoTo ausgang
KatM = Sheets("Tabelle1").Columns(4).Find(what:=Range("A1").Value, LookIn:=xlValues, _
lookat:=xlWhole, searchdirection:=xlNext).Row
MsgBox "Fundstelle ist in Zeile " & KatM
Exit Sub
ausgang:
MsgBox Range("A1") & " nicht gefunden."
End Sub
Gruß Werner

Anzeige
AW: Update
24.03.2016 11:53:04
Beverly
Hi Werner,
On Error ist hier nicht notwendig - definiere KatM as Range und benutze es wie folgt:
Public Sub test1()
'## Suche Blatt1, SpalteD, Suchbegriff steht in Zelle A1, Suchrichtung von oben nach unten
'## Treffer nur, wenn exakt der Suchbegriff (alleine) in der Zelle in Spalte D steht
Dim KatM As Range
Set KatM = Sheets("Tabelle1").Columns(4).Find(what:=Range("A1").Value, LookIn:=xlValues, _
lookat:=xlWhole, searchdirection:=xlNext)
If Not KatM Is Nothing Then
MsgBox "Fundstelle ist in Zeile " & KatM.Row
Else
MsgBox Range("A1") & " nicht gefunden."
End If
Set KatM = Nothing
End Sub

Anzeige
AW: Update
24.03.2016 11:58:11
Werner
Hallo Karin,
auch wieder wahr. Sicher die richtigere und vor allem elegantere Methode als on error..
Bin noch am Lernen aber gerade auch deshalb dankbar für derartige Hinweise.
Danke und viel Erfolg beim Eier suchen.
Gruß Werner

AW: VBA: Zeile ausgeben wo Wert das erste mal vorkommt
24.03.2016 09:56:31
Daniel
Hi
kannst du mit .FIND machen:
KatM = columns(4).Find(What:="M2", lookat:=xlwhole, lookIn:=xlvalues, searchdirection:=xlnext).Row

oder mit der Funktion VERGLEICH / MATCH:
KatM = Worksheetfunction.Match("M2", Columns(4), 0)
vorausgesetzt, M2 ist vorhanden.
wenn es vorkommen kann, dass M2 nicht vorhanden ist, müsste man noch etwas anders vorgehen um einen Fehlerabbruch zu vermeiden.
Gruß Daniel

Anzeige
AW: VBA: Zeile ausgeben wo Wert das erste mal vorkommt
24.03.2016 09:56:47
Beverly
Hi,
z.B. so:
Sub Test()
Dim KatM As Variant
KatM = Application.Match("M2", Columns(4), 0)
If Not IsError(KatM) Then
MsgBox KatM
Else
MsgBox "Nicht gefunden"
End If
End Sub

53 Forumthreads zu ähnlichen Themen

Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Anzeige
Wert mit 2 Bezügen mit VBA suchen und ausgeben
Klaus

Sehr verehrte Excel-Gurus!
Wäre toll, wenn ihr mir wieder einmal bei einer EDV-mäßigen Umsetzung helfen könntet.
In der beigefügten Arbeitsmappe befinden sich die folgenden, beiden Tabellen:
https://www.herber.de/bbs/user/64497.xls
Tabelle alleSZ
beinhaltet Daten über Statio...
17.09.2009 13:21:08
Thread-ID: 1103502
6 Beiträge
VBA" WERT" im Format 08:00 ausgeben
Reinhardt

Hallo,
es steht in:
A1=800
A2=1200
als ein Zeitwert von einer Stempelkarte.
Der Cursor steht in A1.
VBA soll nun A2 minus A1 rechnen und der errechnete Wert soll im Format 08:00 in E1 ausgegeben werden.
WERT = ActiveCell.Offset(0, 1) - ActiveCell
ActiveCell.O...
05.01.2011 14:38:18
Thread-ID: 1194029
2 Beiträge
Anzeige
Erste Zeile mit Formel suchen, kopieren, Wert einf
Birgit

Hallo nochmals,
ich möchte in einen Excel-Sheet die erste Zeile (ab Zeile 6) suchen, die Formeln enthält (SVerweis); diese Zeile soll dann markiert werden und als Wert in diesselbe Zeile eingefügt werden, mein bisheriger kläglicher Versuch: Sub Formel_Finden() Windows("Mappe1.xlsm").Activat...
16.07.2013 09:24:05
Thread-ID: 1322627
8 Beiträge
Letzte Zeile mit identischem Wert finden
Ingo

Hallo Forum,
zunächst nochmal ein frohes neues Jahr :-)
Nun aber zu meinem (wohl kleinen) Problem, bei dem ich aber einfach nicht weiterkomme:
Ich habe in Spalte A meherere Namen untereinander stehen, von denen sich einige in unregelmäßigen Abständen teilweise mehrfach wiederholen.<...
06.01.2014 13:20:27
Thread-ID: 1344242
5 Beiträge
VBA: Maximum suchen und Zeile kopieren
Marcel
Hallo,
Ich habe ein kleines Problem in VBA:
Ich möchte im angehängten File im Bereich B2 bis H6 das Maximum finden (hier wäre das in E4) und dann von der Zeile in dem das Max ist (4) die Einträge B4 bis H4 in eine neue Zeile, z.B. 9 kopieren.
Das Maximum muss nicht immer mittig sein, es...
24.08.2014 14:24:05
Thread-ID: 1377901
8 Beiträge
erste zeile und letze Zeile eines Wertes finden
FBaron

Hallo,
in der Spalte 1 stehen zwei Einträge eines Schlüsselfeldes
Ich benötige jetzt beide Zeilenangaben.
Dim ez as Integer
Dim lz as Integer
ez = Columns(1).Find(Fanr).Row ( wie bringe ich dem Makro bei, dass es nach dem ersten Eintrag suchen soll bzw wie nach dem letzten)...
08.04.2015 16:41:05
Thread-ID: 1419690
5 Beiträge
VBA_2 Nummern durchsuchen und zeile ausgeben
Katharina

Hallo,
ich habe eine Tabelle in der 2 Nummern stehen:
Kundenummer / Auftragsnummer
Ich würde gern durch eine Msg Box die Kundenummer eingeben und VBA soll die richtige Zeile ausspucken wo Kundennummer und Auftragsnummer dientisch der Eingabe sind.
Leider bekomme ich es nicht hin...
14.04.2015 17:53:06
Thread-ID: 1420797
4 Beiträge
Anzeige

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
2
2
5
1
6
7
4
7
4
3
2
6
2
3
9
4
8
4
4
11
9
2
2
4
5