Hallo liebes Forum
Habe da eines Problem, welches mich zum Verzweifeln bringt.
Ich habe in Spalte A eine kontinuierliche Nummerbeschriftung meines Datensatzes (A3=1; A4=2; A5=3; usw.). Nun frage ich via Textbox eines Formular die jeweilige Beschriftung ab, und möchte, dass VBA bei der jeweiligen Zeile (durch Nummer definiert) etwas kopiert. Das funktioniert leider nur, wenn Text drin steht. Schreibe ich bla oder 01.01. in die Zelle funktioniert die Formel. Wenn aber eine einzelne Zahl drin steht, wie in meinem Fall (Bsp. 5) geht mein Code nicht mehr.
Jemand eine Idee woran das liegen könnte?
Anbei der verwendete Code
x = 3
Do While Cells(x, 1) <> ""
If Cells(x, 1) = txtDatum_Einzelbrief.Value Then
Range(Cells(x, 41), Cells(x, 100)).Copy
Worksheets("Datensatz_Serienbrief").Activate
Range("A1").PasteSpecial xlPasteValues
End If
Worksheets("in Kraft").Activate
x = x + 1
Loop
Gruss
Petrus
|