End(xlToLeft) arbeitet nicht
Rainer
ich habe folgendes Problem.
aus einer Arbeitsmappe rufe ich über Application.Dialogs(xlOpenDialogs) rufe ich eine zweite Arbeitsmappe auf; nun will ich - eigentlich kein Problem - die letzte Spalte mit Werten ermitteln. Obwohl mir MsgBox ActiveWorkbook.Name die soeben geöffnete Mappe angibt, schlägt die Anweisung [iv1].End.(xlToLeft).Column fehl, ich lande im aufrufenden Workbook un bekomme als letzte Spalte die 1.
Hier als Unterstützung die paar Anweisungen.
Private Sub cmdStart_Click()
Dim cPfad As String
Dim cLW As String
Dim ipLetztSpalte As Integer
Dim ipLetztZeile As Integer
Dim blpDateiWahl As Boolean
:
:
'Pfad auf Speicherort einstellen.
'
cLW = Left(ActiveWorkbook.Path, 1)
cPfad = Right(ActiveWorkbook.Path, Len(ActiveWorkbook.Path) - 2)
ChDrive cLW
ChDir cPfad
:
'Datei mit Quelldaten öffnen.
blpDateiWahl = Application.Dialogs(xlDialogOpen).Show
'Prozedur verlassen, falls Dateiauswahl abgebrochen wurde.
If blpDateiWahl = "Falsch" Then Exit Sub
'Namen der gewählten Datei prüfen.
:
:
'Endzeile, -spalte für Weiterverarbeitung merken.
ipLetztSpalte = [iv1].End(xlToLeft).Column
Hat jemand eine Idee? Besten Dank und weiterhin fröhliches exceln.
Rainer