Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gleiche Einträge suchen

gleiche Einträge suchen
10.03.2006 07:08:19
F
Hallo,
ich habe ein Arbeitsblatt mit Namen (A1), Vornamen(A2)
und Personalnummern(A3) von Mitarbeitern.
Einzelne Personen können öfter eingetragen sein.
zB Person x in Reihe 29,30,31.
Ich habe nun einen Code, der mir den Mitarbeiter
durch Eintrag von Name, Vorname und Personalnummer findet.
Es wird aber nur der erste eintrag gefunden.
Wi geht das, das auch der letzte Eintrag gefunden wird?
Hier mein Code:
eins = TextBox1.Text
zwei = TextBox2.Text
drei = TextBox3.Text
ende = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ende
If Cells(i, 1).Value = eins Then
If Cells(i, 2).Value = zwei Then
If Cells(i, 3).Value = drei Then
Cells(i, 1).Select
Unload UserForm1
Exit Sub
End If
End If
End If
Next i
Mit freundlichen Grüssen Frank

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gleiche Einträge suchen
10.03.2006 07:27:00
Hans
Hallo Frank,
das eine Problem ist, dass Dein Makro nach dem ersten Treffer aussteigt. Wenn Du alle Treffer markieren möchtest, musst Du den entsprechenden Mehrfachbereich auslesen:

Sub Test()
Dim rng As Range, rngAll As Range
Dim i As Integer, ende As Integer
Dim eins As String, zwei As String, drei As String
eins = "Zeile 7 - Spalte 1"
zwei = "Zeile 7 - Spalte 2"
drei = "Zeile 7 - Spalte 3"
i = 1
ende = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ende
If Cells(i, 1).Value = eins Then
If Cells(i, 2).Value = zwei Then
If Cells(i, 3).Value = drei Then
If rngAll Is Nothing Then
Set rngAll = Cells(i, 1)
Else
Set rngAll = Union(rngAll, Cells(i, 1))
End If
End If
End If
End If
Next i
rngAll.Select
End Sub

gruss hans
Anzeige
AW: gleiche Einträge suchen
10.03.2006 07:58:14
F
Hallo Hans,
erst einmal vielen Dank für deine Hilfe.
Ist es auch möglich, das nur die letzte Zelle markiert wird,
und nicht der ganze Bereich?
Mit freundlichen Grüssen Frank
AW: gleiche Einträge suchen
10.03.2006 08:06:24
Hans
Hallo Frank,
wie folgt:

Sub Test()
Dim i As Integer, ende As Integer
Dim eins As String, zwei As String, drei As String
eins = "Zeile 7 - Spalte 1"
zwei = "Zeile 7 - Spalte 2"
drei = "Zeile 7 - Spalte 3"
i = 1
ende = Cells(Rows.Count, 1).End(xlUp).Row
For i = ende To 1 Step -1
If Cells(i, 1).Value = eins Then
If Cells(i, 2).Value = zwei Then
If Cells(i, 3).Value = drei Then
Cells(i, 1).Select
Exit Sub
End If
End If
End If
Next i
End Sub

gruss hans
Anzeige
und noch ein Problem
10.03.2006 08:10:38
F
Hallo Hans,
die Namen gebe ich in eine Userform ein.
Wenn ich nun einen Namen eingebe, den es
nicht gibt, kommt die Fehlermeldung:
run time error 91
object variable or with block variable not set
und 'rngAll.Select' ist markiert.
Hast Du da noch eine Idee zu?
Mit freundlichen Grüssen Frank
AW: und noch ein Problem
10.03.2006 08:18:01
Hans
Hallo Frank,
ändere die kritische Stelle in:
If Not rngAll is Nothing then rngAll.Select
gruss hans
AW: und noch ein Problem
10.03.2006 08:29:42
F
Hallo Hans,
ich habe im code 1 und ende getauscht, aber jetzt geht es nicht mehr.
ich lege meine Datei mal auf dem Server ab.
Wunder dich nicht über den Code, meine VBA Kenntnisse sind nicht so hoch.
https://www.herber.de/bbs/user/31773.xls
Mit freundlichen Grüssen Frank
Anzeige
AW: und noch ein Problem
10.03.2006 08:34:59
Hans
Hallo Frank,
Du hast im Schleifenbeginn das step -1 vergessen.
gruss hans
vielen Dank für Deine Hilfe
10.03.2006 09:03:49
F
Hallo Hans,
vielen Dank für Deine Hilfe
Mit freundlichen Grüssen Frank

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige