Wenn-Funktion mit VBA bis leere Zeile ziehen
08.02.2016 09:14:53
Ludwig
ich habe folgendes Anliegen:
Ich habe mit der Funktion "Makro aufzeichnen" es geschafft, dass eine
Wenn-Funktion in die erste Spalte eingetragen wird. Nun soll diese aber
runter gezogen werden, bis die erste leere Spalte auftaucht (und dies immer variabel). Ich vermute, dass dies mit einer Schleife geht und bin nun so weit gekommen:
Sub OgroeßerP()
' OgroeßerP Makro
' Der bezahlte Speicher muss größer als der benutzte Speicher sein.
Cells.Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$T$645").AutoFilter Field:=7, Criteria1:="=*MIA*", _
Operator:=xlOr, Criteria2:="=*HSFS*"
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("U1").Select
ActiveCell.FormulaR1C1 = "Bezahlter und benutzter Speicher:"
Range("U2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]>RC[-5],""Ok!"",""Zu viel Speicher."")"
Range("U33").Select
For Each Zelle In Range("U:U")
If Zelle = "" Then
ActiveCell.FormulaR1C1 = "=IF(RC[-6]>RC[-5],""Ok!"",""Zu viel Speicher."")"
End If
Dim sp As Long
For sp = 1 To 890
If WorksheetFunction.CountA(Columns(sp)) = 0 Then Exit For 'Stop bei leerer Spalte
Columns(sp).RemoveDuplicates 1, xlNo
Next
Next
End Sub
Anzeige