Letzte Spalte ermitteln
ing.grohn
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
Anzeige