Hey,
also ich zeige dir mal ein Beispiel aus meinem Programm für hinzufügen einer Zeile:
'================================='
' Methode ZeileHinzuInvestoren
'================================='
'Neue Zeile "Informationen zu Investoren" hinzufügen
Sub ZeileHinzuInvestoren()
Dim x As Integer
Dim y As Integer
Dim AnzZ As Integer
Dim AnzZs As String
y = Position("Informationen zu Investoren", "Übersicht")
AnzZs = InputBox("Bitte Anzahl der Zeilen eingeben!")
AnzZ = Val(AnzZs)
Call ZeileHinzufügen(y, AnzZ, "Übersicht") 'diese Methode ist die allgmeine Methode,die du unten findest
y = Position("Informationen zu Investoren", "Übersicht")
'die Zellen von Spalte 2 bis 10 werden nun grau-unterlegt
If Cells((y - 1), 2) = "Name oder Firma" Then Range(Cells(y, 2), Cells(y, 10)).Interior.ColorIndex = 15
Cells(y, 2).Select
End Sub
--------------------------------------------------------------------------------------------------------------
Sub ZeileHinzufügen(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).Insert Shift:=xlDown
Next i
End Sub
Und jetzt muss ich genau darauf basierend eine Funktion implementieren,die genau diese Zeilen löschen kann =)
|