Suchen, ob Spalte 2mal vorhanden ist

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Suchen, ob Spalte 2mal vorhanden ist"