ich übertrage mit VBA Daten aus einer Textdatei mit Semikolon als Trennzeichen und einer festen Spaltenzahl (7).
Alles kein Problem.
Zur Sicherheit prüfe ich wieviel Spalten eingelesen werden:
LetzteSpalte = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
Funktioniert auch!
Wenn ich jetzt probehalber in die erste freie Spalte (8) irgendwo eine Zahl eintrage, reagiert _
mein Prüfmodul:
Sub SpaltenAnzahlpruefen()
Dim LetzteSpalte As Integer
Dim test
LetzteSpalte = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
'MsgBox LC
If LetzteSpalte > 7 Then
Columns(LetzteSpalte).Select
test = MsgBox("bitte die Datenübernahme prüfen! " & vbCr & _
"es wurden mehr Spalten übertragen als vorgesehen!!", _
vbExclamation)
End If
End Sub
mit der Fehlermeldung (OK).
Lösche ich diesen Wert oder lösche die ganze Spalte mit Bearbeiten|Zellen löschen|ganze Spalte
dürfte obige Routine eigentlich keinen Fehler anzeigen!
Tut sie aber!!
Warum?
Bedanke mich für eine Antwort
Mit freundlichen Grüßen
Albrecht