AW: Suche in mehreren Spalten mit VBA
26.06.2014 14:46:56
fcs
Hallo Franz,
hier das angepasste Makro zur Suche nach den Nachnamen der Ansprechpartner in allen Nachname-Spalten.
Gruß
Franz
' Suchen 1. Ansprechpartner
Private Sub CommandButton8_Click()
Dim WkSh As Worksheet
Dim lLetzte As Long, lSpalte As Long
Dim myRange As Range, SearchRange As Range
Dim strAddress As String
Dim bolAbbruch As Boolean
CommandButton1.Enabled = False ' Ändern-Button sperren
CommandButton3.Enabled = False ' Löschen-Button sperren
Set WkSh = Worksheets("Daten")
lLetzte = WkSh.Range("C65536").End(xlUp).Row
If lLetzte strAddress Then
myRange.Activate
FundZeile = ActiveCell.Row
GoSub Anzeigen
End If
End If
Loop While Not myRange Is Nothing And myRange.Address strAddress
If Not bolAbbruch Then
MsgBox "Keine weiteren Datensätze gefunden.", _
48, " Information für " & Application.UserName
FundZeile = 0
Else
MsgBox "Keinen übereinstimmenden Datensatz gefunden", _
48, " Information für " & Application.UserName
FundZeile = 0
End If
Else
MsgBox "Keinen übereinstimmenden Datensatz gefunden", _
48, " Information für " & Application.UserName
FundZeile = 0
With TextBox4
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End With
End If
CommandButton1.Enabled = False ' Ändern-Button sperren
CommandButton3.Enabled = False ' Löschen-Button sperren
Exit Sub
Anzeigen:
If FundZeile = 0 Then Exit Sub
With WkSh.Cells(FundZeile, 3)
TextBox1.Value = .Offset(0, -2).Value ' Firma
TextBox2.Value = .Offset(0, -1).Value ' Titel
TextBox3.Value = .Offset(0, 0).Value ' Nachname
TextBox4.Value = .Offset(0, 1).Value ' Vorname
TextBox5.Value = .Offset(0, 2).Value ' aktiv
TextBox6.Value = .Offset(0, 3).Value ' Titel
TextBox7.Value = .Offset(0, 4).Value ' Nachname
TextBox8.Value = .Offset(0, 5).Value ' Vorname
TextBox9.Value = .Offset(0, 6).Value ' aktiv
TextBox10.Value = .Offset(0, 7).Value ' Titel
TextBox11.Value = .Offset(0, 8).Value ' Nachname
TextBox12.Value = .Offset(0, 9).Value ' Vorname
TextBox13.Value = .Offset(0, 10).Value ' aktiv
TextBox14.Value = .Offset(0, 11).Value ' Titel
TextBox15.Value = .Offset(0, 12).Value ' Nachname
TextBox16.Value = .Offset(0, 13).Value ' Vorname
TextBox17.Value = .Offset(0, 14).Value ' aktiv
TextBox18.Value = .Offset(0, 15).Value ' Titel
TextBox19.Value = .Offset(0, 16).Value ' Nachname
TextBox20.Value = .Offset(0, 17).Value ' Vorname
TextBox21.Value = .Offset(0, 18).Value ' aktiv
TextBox22.Value = .Offset(0, 19).Value ' Titel
TextBox23.Value = .Offset(0, 20).Value ' Nachname
TextBox24.Value = .Offset(0, 21).Value ' Vorname
TextBox25.Value = .Offset(0, 22).Value ' aktiv
TextBox26.Value = .Offset(0, 23).Value ' Notizen
End With
CommandButton1.Enabled = True ' Ändern-Button freigeben
CommandButton3.Enabled = True ' Löschen-Button freigeben
Return
End Sub