VBA finden Funktion
04.11.2022 15:26:46
Jakob
ich habe probleme mit der finden Funktion:
ich hab eine Tabelle mit folgenden spaltennamen:
Bauvorhaben Nummer ; Name Bauherr; Auftragsnummer ; Auftragsdatum; Auftragsstatus
die aufträge trage ich durch eine Userform ein! klappt alles
dann will ich eine zweite UF erstellen in der ich den Status des Auftrages ändern kann. (von offen zu erledigt)
da ein Bauvorhaben mehrere Auftragsnummer haben kann wollt ich die Suche über die Auftragsnummer machen und durch einen Button mir die Informationen (BV Nummer; Name Bauherr; Datum Auftrag und Status in die TExtboxen in der UF schreiben lassen (automatisch) aber genau da liegt mein problem:
bei DatumAU funktioniert es problemlos, da es rechts von der spalte AuNummer liegt. BVNummer und NameBauherr funktioniert es nicht, da die spalten links davon liegen.
Habe es mal mit -1 und -2 probiert aber das will VBA nicht.
Ich hoffe mir kann jemand helfen!
Vielen Dank im Voraus
Private Sub CommandButtonCheck_Click()
'Button CHECK automatisch infos füllen
Set finden = Columns(3).Find(what:=AuNummer)
If finden Is Nothing Then
MsgBox "Kein Eintrag gefunden"
Else
BVNummer = finden.Offset(0, -2)
AuNummer = finden.Offset(0, 0)
DatumAu = finden.Offset(0, 1)
NameBH = finden.Offset(0, -2)
End If
End Sub