Guten Morgen,
ich benötige Hilfe bei meinem VBA Code..
Und zwar habe ich eine Suchfunktion eingebaut. Der eingegebene Wert wird in der 1. Spalte gesucht und z.B. der Wert 3 Spalten weiter rechts ausgegeben. Das habe ich mit der Funktion Offset gemacht. Nun möchte ich jedoch, dass ich die Spalte mit dem "Namen" anspreche, da es sein kann, dass in Zukunft der Wert nicht mehr in der Spalte 3 weiter rechts, sondern 7 Spalten weiter rechts stehen wird. Hier ein Ausschnitt wie ich es habe.
If Not Sachnummer Is Nothing Then 'Falls die Sachnummer gefunden wurde
Dim Spezifikation As Range 'setze Spezifikation als Variable
Dim beh?lter As Range 'setze beh?lter als Variable
Dim Prozent As Range 'setze Prozent als Variable
Dim L?nge As Range 'setze L?nge als Variable
Set beh?lter = Sheets("Sachnummern").Columns(1).Find(what:=TextBox1.Text, lookat:=xlWhole)
Set Spezifikation = Sheets("Spezifikationen").Columns(1).Find(what:=Sachnummer.Offset(0, 6).Value, lookat:=xlWhole)
If Not Spezifikation Is Nothing Then 'Wenn das Feld der Spezifikation nicht leer ist, dann
Sheets("Kontrolle").TextBoxR.Caption = Spezifikation.Offset(0, 2).Value
Sheets("Kontrolle").TextBoxa.Caption = Spezifikation.Offset(0, 3).Value
Sheets("Kontrolle").TextBoxB.Caption = Spezifikation.Offset(0, 4).Value
Sheets("Kontrolle").TextBoxc.Caption = Spezifikation.Offset(0, 5).Value
Vielen dank im Voraus
MFG Sergen