VBA - MsgBox
10.05.2018 20:54:15
WalterK
dieses Mal muss ich mein Anliegen anhand einer Excel-Datei darstellen:
Die im MsgBox-Makro manuell eingetragenen Spaltenbezeichnungen und Überschriften sollen automatisch ausgelesen werden.
Kann mir jemand weiterhelfen.
Hier der vorläufige Code der MsgBox.
Anbei noch die Datei (als xlsx-Datei), der Code ist auskommentiert.
Option Explicit
Sub MsgBoxZurPrüfung()
Dim wks As Worksheet
Dim LSp As Long
Set wks = Worksheets("Tabelle1")
LSp = wks.Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Die Reihenfolge der Überschriften sollte wie folgt lauten: " _
& vbCr & "" & vbCr & "Spalte B:B ---> Mitglieds-Nr." _
& vbCr & "Spalte F:F ---> Zuname" _
& vbCr & "Spalte G:G ---> Vorname" _
& vbCr & "Spalte I:I ---> Geb.Datum" _
& vbCr & "" & vbCr & "Die Spalten und Überschriften müssen genau übereinstimmen!"
Set wks = Nothing
End Sub
https://www.herber.de/bbs/user/121539.xlsx
Besten Dank, Servus Walter
Anzeige