Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Letzte Spalte ermitteln | Herbers Excel-Forum


Betrifft: Letzte Spalte ermitteln von: ing.grohn
Geschrieben am: 24.07.2012 20:35:41

Hallo Forum,
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

  

Betrifft: AW: Letzte Spalte ermitteln von: Hajo_Zi
Geschrieben am: 24.07.2012 20:37:39

Hallo albrecht,

da Du die Datei nicht gespeichert hast.

GrußformelHomepage


  

Betrifft: AW: Letzte Spalte ermitteln von: ing.grohn
Geschrieben am: 24.07.2012 20:42:03

Hallo Hajo,
stimmt, hab ich nicht!
was hat denn das Eine mit dem Andern zu tun?
Mit freundlichen Grüßen
Albrecht


  

Betrifft: AW: Letzte Spalte ermitteln von: Hajo_Zi
Geschrieben am: 25.07.2012 05:51:30

Hallo Albrecht,

Du löscht Zellinhalt und die Veränderung der Größe der Tabelle aktualisiert Excel nur beim speichern.

Gruß Hajo


  

Betrifft: AW: Letzte Spalte ermitteln von: ing.grohn
Geschrieben am: 25.07.2012 08:01:38

Hallo Hajo,
vielen Dank, funktioniert!
(aber gibts keine andere, elegante Lösung des Problemchens?)
Mit freundlichen Grüßen
Albrecht


  

Betrifft: AW: Letzte Spalte ermitteln von: Hajo_Zi
Geschrieben am: 25.07.2012 17:48:45

Hallo Albrecht,

Nein nur durch sichern.

Gruß Hajo


Beiträge aus den Excel-Beispielen zum Thema "Letzte Spalte ermitteln"