ich habe untenstehenden Code auszugsweise kopiert. Er soll bewirken, dass der Text, der sich unterhalb der Überschrift in Zeile 2 befindet, in eine Textbox genommen wird. Manchmal passiert es aber, dass der gesuchte Text, in diesem Fall die Lieferantennummer sich zwei bis drei Zellen daneben befindet. Ist es möglich, den Code so zu gestalten, dass der Text (in diesem Fall folgendes Format: drei Zahlen, ein Buchstabe, sechs Zahlen - z.B. 123Y456789) automatisch anhand des Formates gesucht wird und dann die Zellen soweit verschoben werden (nach links), dass der LieferNr. sich wieder unter der passenden Überschrift "LieferNr" befindet? Ich danke schon jetzt Allen für die Rückmeldung.
Herzliche Grüße
Wolfgang
Option Explicit
Dim active_xSheet As Worksheet
Sub Textboxes_fuellen()
Dim mySheet As Worksheet
Dim rng As Range
Set mySheet = ThisWorkbook.Worksheets(x_Sheet)
With mySheet
Set rng = .Rows(1).Find("LieferNr", LookAt:=xlWhole)
If Not rng Is Nothing Then
txtLiefernr.Text = rng.Offset(1, 0).Text
End If
'Wie könnte es hier weitergehen?
'Die weitere Abfrage soll bewirken, dass in Zeile 2 nach einer Nummer mit 'untenstehendem Format gesucht wird und diese dann in die Textbox übernommen wird.
'Es gibt im Tabellenblatt immer nur eine Nummer mit untenstehendem Format, die 'aber nicht immer unter der Überschrift zu finden ist
'und manchmal leider zwei bis drei Zellen daneben steht. Ist möglich, dann in 'der Folge die Zellen nach links zu verschieben, bis dann die LieferNr.
'auch unter der Überschrift LieferNr. zu finden ist?
If Not rng Like "###[A-Z]######" Then
End With
Set rng = Nothing
End Sub