Hallo zusammen,
ich bin momentan wieder in einer Zwickmühle gelandet.
Ich habe in meinem Excel Sheet 3 Abschnitte jeweils (römisch) 1,2,3 eingebaut.In jeder dieser Abschnitte kann man Zeilen für bestimmte Informationen hinzufügen.Nun möchte ich unnötige Zeilen(die leer und grau-hinterlegt sind und nur stören) wieder löschen.
In Abschnitt 3 funktioniert alles prima.Es löscht die unnötigen Zeilen beim Button-Click.Aber wenn ich jetzt in Abschnitt 1,welches vor Abschnitt 2 liegt,Zeilen lösche,so werden nicht nur die unnötigen (grau hinterlegten Zeilen entfernt), sondern Abschnitt 2 rutscht automatisch in Abschnitt 2 hoch.
Ich müsste irgendeine Begrenzung des Abschnitt 1 einbauen, wobei das Löschen von Zeilen per Button-Click nur für diesen Abschnitt gemacht wird.
Hier mein bisheriger Code:
// Methode die allgemein Zeilen löschen soll
Sub ZeileLöschen(ByVal z, ByVal Anz As Integer, ByVal SheetName As String)
Dim i As Integer
For i = 1 To Anz Step 1
Worksheets(SheetName).Rows(z).Delete Shift:=xlDown
Next i
End Sub
// Methode,die speziell die Zeilen aus Abschnitt 3 löschen soll
Sub ZeileDeleteInvestoren()
'
' ZeileDeleteInvestoren Makro
'
Dim y As Integer
y = Position("Informationen zu Investoren", "Übersicht")
Call ZeileLöschen(y, 1, "Übersicht")
y = Position("Informationen zu Investoren", "dÜbersicht")
End Sub
Hoffe Ihr habt mein Problem verstanden =)
LG
|