Do Loop schleife
10.08.2017 10:52:37
lutz
ich habe eine Tabelle, in der Adressen bestimmte Daten zugeordnet sind.
Ich möchte nun mit einer Schleife die Spalte B nach einer vorher festgelegten Nummer durchsuchen und bei einem Treffer die Adresse mit den in Textboxen eingetragene Werte ändern.
Leider ändert sich bisher gar nichts
Vielen Dank schonmal
Hier mein Code
Private Sub Adressänderung()
Dim letzteZeile As Long 'letzte Zeile in Tabelle1
Dim findNummer As Long
Dim Gefunden As Range
Dim Firstaddress As Range
letzteZeile = Tabelle1.Range("B" & Rows.Count).End(xlUp).Row
With Worksheets("Tabelle1").Range("B6:B" & letzteZeile)
findNummer = Tx_KST
Set Gefunden = .Find(what:=findNummmer, LookIn:=xlValues)
If Not KSTgefunden Is Nothing Then
Firstaddress = Gefunden.Address
Do
Gefunden.Offset(0, -1).Value = Tx_1.value
Gefunden.Offset(0, 1).Value = Tx_2.value
Gefunden.Offset(0, 2).Value = Tx_3.value
Gefunden.Offset(0, 3).Value = Tx_4.value
Gefunden.Offset(0, 4).Value = Tx_5.value
Set Gefunden = .FindNext(Gefunden)
If Gefunden Is Nothing Then
GoTo DoneFinding
End If
Loop While Not Gefunden Is Nothing And Gefunden.Address Firstaddress
End If
DoneFinding:
End With
End Sub