Schnellere Lösung
Frank
Meine Frage:
Mittels folgendem Code (Auszug) schreibe ich Daten in ein Tabellenblatt:
Dim lng As Long
With frmNachberechnungen
Sheets("Nachberechnungen").Activate
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 136).Value = .TextBox61 Then
Cells(lng, 137) = .TextBox122.Text
End If
If Cells(lng, 136).Value = .TextBox62 Then
Cells(lng, 137) = .TextBox123.Text
End If
.........
Next lng
End With
Das ganze bis hin zur TextBox120. Nun würde ich gern erfdahren ob es eine schnellere Methode gibt. Ich habe mal etwas von der Find Methode gehört, weiß aber nicht wie ich es umsetzen soll!!! Wer weiß Rat?
Gruß und Danke Frank H.!!!