21.02.2019, 12:29
Hallo,
ich brauche natürlich wie immer Eure Hilfe. Ich glaube, dass es gar nicht schwer ist, aber ich stehe auf dem Schlauch
Ich habe eine Tabelle erstellt und dafür die VBA programmiert.
Public Sub SuchenKennzeichen1()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Bitte Kennzeichen zusammenhängend eingeben z.b. M-AA299", "Datenbank durchsuchen")
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(7).Find(strSuchbegriff, LookIn:=xlValues, _
Lookat:= _
xlWhole)
If strSuchbegriff = vbNullString Then Exit Sub
If Not rngTreffer Is Nothing Then
rngTreffer.Select
Else
MsgBox "Suchbegriff " & strSuchbegriff & " nicht gefunden."
End If
End Sub
Funktioniert auch tadellos. Nun möchte ich aber, dass die Suche nicht nur in Colums 7 stattfindet sondern auch in Column 8 .... das geht bestimmt über ElseIf, aber ich bekomme es einfach nicht hin..
Vielen Dank im Voraus.
ich brauche natürlich wie immer Eure Hilfe. Ich glaube, dass es gar nicht schwer ist, aber ich stehe auf dem Schlauch
Ich habe eine Tabelle erstellt und dafür die VBA programmiert.
Public Sub SuchenKennzeichen1()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Bitte Kennzeichen zusammenhängend eingeben z.b. M-AA299", "Datenbank durchsuchen")
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(7).Find(strSuchbegriff, LookIn:=xlValues, _
Lookat:= _
xlWhole)
If strSuchbegriff = vbNullString Then Exit Sub
If Not rngTreffer Is Nothing Then
rngTreffer.Select
Else
MsgBox "Suchbegriff " & strSuchbegriff & " nicht gefunden."
End If
End Sub
Funktioniert auch tadellos. Nun möchte ich aber, dass die Suche nicht nur in Colums 7 stattfindet sondern auch in Column 8 .... das geht bestimmt über ElseIf, aber ich bekomme es einfach nicht hin..
Vielen Dank im Voraus.