Hallo Ihr Lieben,
bestimmt könnt Ihr mir weiterhelfen.
Ich möchte eine Datei öffnen und in dieser dann leere Zeilen löschen. Dazu habe ich fogende Excel-VBA-Code erdacht:
Sub Ellipse1_Klicken()
'On Error Resume Next
'Application.ScreenUpdating = False
Dim Pfad As String
Dim Datei As String
Dim Arbeitsblatt As String
Dim Spalte As String
Dim Schliessen As String
Dim LetzteZeile As Integer
Dim i As Integer
Dim wb As Workbook
Pfad = "C:\Users\Franziska\Desktop" 'Tabelle1.Cells(2, 2).Value
Datei = "Xxxxxxxxx_Customer - Balance to Date 2018 12 31_bearbeitetSAB.xlsx" 'Tabelle1.Cells(3, 2).Value
Arbeitsblatt = "Customer - Balance to Date 2018" 'Tabelle1.Cells(4, 2).Value
Spalte = "C" 'Tabelle1.Cells(5, 2).Value
Set wb = Workbooks(Datei)
If wb Is Nothing Then Workbooks.Open Filename:=Pfad & "\" & Datei
LetzteZeile = Cells(Rows.Count, Spalte).End(xlUp).Row
For i = LetzteZeile To 2 Step -1
If Cells(i, Spalte) = "" Then Rows(i).Delete
Next i
If MsgBox("Soll die Datei geschlossen werden?", Buttons:=vbYesNo) = vbYes Then Workbooks(Datei).Close
Application.ScreenUpdating = True
End Sub
Bei "If wb is Nothing " mckert er: Laufzeitfehler 9, Index außerhalb des gültigen Bereichs.....
Wo liegt mein Fehler??
Lieben Dank für Eure Hilfe!
Franziska
bestimmt könnt Ihr mir weiterhelfen.
Ich möchte eine Datei öffnen und in dieser dann leere Zeilen löschen. Dazu habe ich fogende Excel-VBA-Code erdacht:
Sub Ellipse1_Klicken()
'On Error Resume Next
'Application.ScreenUpdating = False
Dim Pfad As String
Dim Datei As String
Dim Arbeitsblatt As String
Dim Spalte As String
Dim Schliessen As String
Dim LetzteZeile As Integer
Dim i As Integer
Dim wb As Workbook
Pfad = "C:\Users\Franziska\Desktop" 'Tabelle1.Cells(2, 2).Value
Datei = "Xxxxxxxxx_Customer - Balance to Date 2018 12 31_bearbeitetSAB.xlsx" 'Tabelle1.Cells(3, 2).Value
Arbeitsblatt = "Customer - Balance to Date 2018" 'Tabelle1.Cells(4, 2).Value
Spalte = "C" 'Tabelle1.Cells(5, 2).Value
Set wb = Workbooks(Datei)
If wb Is Nothing Then Workbooks.Open Filename:=Pfad & "\" & Datei
LetzteZeile = Cells(Rows.Count, Spalte).End(xlUp).Row
For i = LetzteZeile To 2 Step -1
If Cells(i, Spalte) = "" Then Rows(i).Delete
Next i
If MsgBox("Soll die Datei geschlossen werden?", Buttons:=vbYesNo) = vbYes Then Workbooks(Datei).Close
Application.ScreenUpdating = True
End Sub
Bei "If wb is Nothing " mckert er: Laufzeitfehler 9, Index außerhalb des gültigen Bereichs.....
Wo liegt mein Fehler??
Lieben Dank für Eure Hilfe!
Franziska