Ende dynamischer Bereich finden...
30.05.2007 20:49:13
Kyrie
In dem Sheet "BV" erstreckt sich die Tabelle über A1:L18; dabei ist der Überschriften-Bereich (Zeile 1 bis 3) fix, ebenso die Anzahl der Spalten (A bis L).
Der Datensatz-Bereich (hier: $A$4 bis L$11) ist dynamisch, und damit AUCH die Position der "schwarzen Zeile", hier: Zeile 12.
Folglich ist die "letzte benutzte Zeile" ebenfalls dynamisch, hier: Zeile 18.
Innerhalb eines Makros möchte ich nun den Bereich unterhalb jener schwarzen Zeile löschen und in der Zelle (schwarzeZeile + 1, Spalte G) eine Summen-Formel platzieren, also =SUM(G4:GschwarzeZeile 1).
Ist für euch Profis bestimmt banal, aber mit meinem Coedchen kriege ich nicht mal den Bereich unterhalb der schwarzen Zeile gelöscht, geschweige denn, die Formel platziert...
Sub Unterh_DynBereich_loeschen()
Dim ZeileMax As Integer
Dim Zeile As Integer
Dim lngZ As Integer
Dim Hit As Integer
With Sheets("BV")
lngZ = ActiveSheet.UsedRange.Rows.Count
ZeileMax = .Range("G" & lngZ).End(xlUp).Row
For Zeile = 4 To ZeileMax Step 1
If Cells(Zeile, 7).Interior.ColorIndex = 1 Then
Hit = Zeile + 1
End If
Next Zeile
.Range(Cells(Hit, 3), Cells(lngZ, 12)).ClearContents
End With
End Sub
Was muss ich tun, um nach der Löschung in G13 zu landen und die Summenformel eintragen zu lassen? Dank an alle! Bin mal wieder total blockiert... LG, Kyrie
Habe auf dieser Kiste meine JEANIE nicht zur Hand, wer ein Muster benötigt, guckst du:
https://www.herber.de/bbs/user/42881.xls
Anzeige