Probleme mit verbundenen Zellen in VBA
12.01.2004 13:30:33
Jörg Weber
ich möchte mit VBA den Eingabebereich für Zahlen testen, ob versehentlich ein Datum eingegenen wurde (durch Verwendung von "." statt ","). Diese funktioniert mit dem angeführten Programm-Teil ganz gut. Leider gibt es jedoch Probleme bei verbundnen Zellen. Hierbei wird trotz falscher Zahleneingabe (Datum) nicht in die betreffende if-Anweisung verzweigt (If Selection.NumberFormat <> "General" Then). Kann mir jemand weiterhelfen ?
Viele Grüße Jörg
z = 23 'Startzeile 23
s = 2 'Startzeile 2 (Spalte B)
For j = 1 To 5
For k = 1 To 3
Cells(z, s).Select
If Selection.NumberFormat <> "General" Then
p = p + 1
Selection.NumberFormat = "General"
Selection.ClearContents
Else
p = p
End If
s = s + 2
Next k
s = 2
z = z + 1
Next j