Herbers Excel-Forum - das Archiv

Suchen, ob Spalte 2mal vorhanden ist

Bild

Betrifft: Suchen, ob Spalte 2mal vorhanden ist
von: MarryJo

Geschrieben am: 23.02.2005 09:18:30
Hallo zusammen,
ich suche in meinem Makro nach der Spalte mit der Überschrift "Organisation". Wenn diese Spalte nicht vorhanden sein sollte wird eine Fehlermeldung ausgegeben und es wird abgebrochen.
'Zelle mit der Überschrift "Organisation" wird mit der Find-Methode gesucht
Set rgCell = rghd.Find("Organisation", LookIn:=xlValues, LookAt:=xlWhole)
If rgCell Is Nothing Then
'Fehlermeldung, falls "Organisation" nicht vorhanden
MsgBox "Fehler, Spalte ""Organisation"" fehlt"
Exit Sub
Else
'gefundene Zelle wird gemerkt
iColNoGw = rgCell.Column
End If

Jetzt hätte ich aber gerne, dass das ganze auch passiert, wenn es 2 Spalten mit dieser Überschrift gibt.
Wie funktioniert das?
Dank vorab.
Gruss, MarryJo
Bild

Betrifft: AW: Suchen, ob Spalte 2mal vorhanden ist
von: chris b

Geschrieben am: 23.02.2005 09:30:43
für deinen Gebrauch umbauen dann klappts damit !
Sub neu()
'Zelle mit der Überschrift "Organisation" wird mit der Find-Methode gesucht
'Set rgCell = rghd.Find("Organisation", LookIn:=xlValues, LookAt:=xlWhole)
If rgCell Is Nothing Then
'Fehlermeldung, falls "Organisation" nicht vorhanden
MsgBox "Fehler, Spalte ""Organisation"" fehlt"
Exit Sub
Else
'gefundene Zelle wird gemerkt
iColNoGw = rgCell.Column
End If
End Sub


Sub finden_mit_next_find()
treffer = 0
Set zelle = Rows(1).Find("Organisation", LookIn:=xlValues, Lookat:=xlWhole)
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
Do
treffer = treffer + 1
Set zelle = Rows(1).FindNext(zelle)
Loop While Not zelle Is Nothing And zelle.Address <> ersteAdresse
End If
If treffer = 2 Then
MsgBox ("ok 2 mal gefunden")
Else
MsgBox ("keine 2 mal gefunden")
Exit Sub
End If
End Sub

 Bild
Excel-Beispiele zum Thema "Suchen, ob Spalte 2mal vorhanden ist"
Wert in Array suchen, ohne jedes Datenfeld abzufragen Werte suchen, eintragen und löschen
Wert in ComboBox einlesen, suchen, editieren, ausgeben Name und Vorname suchen, Werte und Fundstellen importieren
Vorkommen von Zahlenreihen in Spalten Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen Spalten/Zeilen aus- und einblenden