Text in Zeile suchen
24.08.2020 06:57:27
Bernhard
ich will einen Text in einer zeile suchen.
Jede Spalte hat eine Überschrift. Ob die Spalte vorhanden ist, überprüfe ich mit dieser Funktion.
Sub SpalteSuchenAlleTaenze(ByVal SpalteText As String, _
SpalteNr As Integer, _
NichtGefunden As Boolean, _
ByVal MitMeldung As Boolean)
Dim rngCell As Range
Set rngCell = WS_AlleTaenze.Rows(1).Find(What:=SpalteText, lookat:=xlWhole, LookIn:= _
xlValues, MatchCase:=False)
If Not rngCell Is Nothing Then
SpalteNr = rngCell.Cells.Column
Else
SpalteNr = 0
NichtGefunden = True
If MitMeldung Then
Call MsgBox("Spalte nicht gefunden. Abbruch !", vbOKOnly, " _
Spalte mit suchen ...")
End If
End If
End Sub
Das funktioniert soweit auch einwandfrei.
Nun habe ich aber Spalten zu Gruppen zusammengefasst, um mehr übersicht im Tabellenblatt zu erhalten.
Wenn ich nun die Gruppe schließe, also nur noch eine Spalte zu sehen ist, funktioniert die Abfrage nicht mehr, also die Spaltenüberschrift wird nicht gefunden.
Öffne ich sie wieder, ist alles gut.
Wie muss ich die Abfrage ändern, sodass meine Spalte immer gefunden wird ?
Vielen Dank