geöffnetesBlatt mit code aus anderer Datei bearbei
03.07.2014 10:45:33
Ines
ich komme mal wieder nicht weiter.
Ich habe eine Excel Datei mit dem Blatt zusammen, wo ich die leeren Spalten und Zeilen löschen möchte. Allerdings habe ich den vba Code in einer anderen ExcelDatei. Nun meine Frage: welchen Code brauche ich um die geöffnete Datei anzusprechen? Die Datei heißt leider immer wieder anders und liegt auch immer an unterschiedlichen Orten. Daher war meine Idee das über die geöffnete Mappe zu machen. Das war bislang mein Versuch:
Sub Schaltfläche12_Klicken()
'Leere_Spalten_löschen()
Dim leere_Spalte As Integer
Worksheet("Zusammen").Activate
Application.ScreenUpdating = False
For leere_Spalte = 256 To 1 Step -1
If Application.CountA(Columns(leere_Spalte)) = 0 Then
Columns(leere_Spalte).Delete
End If
Next
'leere Zeilen löschen
Dim Zeile As Long
With Tabelle1
For Zeile = .UsedRange.Row + .UsedRange.Rows.Count - 1 To 1 Step -1
If Application.CountA(.Rows(Zeile)) = 0 Then .Rows(Zeile).EntireRow.Delete
Next
End With
End Sub
Gruß Ines