ich habe gestern mit Hilfe des Forums ein Makro erstellt und habe jetzt das Problem, dass das Makro bei fehlenden Werten abbricht. (Autofilter)
Hier das Makro:
Public Sub Aendern_MatPlatz()
Dim Zellchen As Range
Dim AendBereich As Range
Dim AendZeilen As Long
Dim AendWert
Dim AendKrit As String
Dim I
Dim DatenBereich As Range
Dim GefilterterBereich As Range
Sheets("Daten").Select
Sheets("Daten").AutoFilterMode = False
'If Range("A1") > "" Then Range("1:1").Insert
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Set DatenBereich = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
DatenBereich.AutoFilter
AendZeilen = Sheets("Aendern").Range("A" & Sheets("Aendern").Rows.Count).End(xlUp).Row
For I = 2 To AendZeilen
AendKrit = Sheets("Aendern").Range("A" & I).Text
AendWert = Sheets("Aendern").Range("B" & I).Value
DatenBereich.AutoFilter Field:=42, Criteria1:=AendKrit
Set GefilterterBereich = Intersect(Range("F2:F" & Rows.Count), DatenBereich.SpecialCells( _
xlCellTypeVisible))
For Each Zellchen In GefilterterBereich.Cells
Zellchen.Offset(0, 37) = AendWert
Next
Next
End Sub
Das geht auch ganz prima aber wenn er nichtf filtert dann bricht er bei For Each Zellchen In GefilterterBereich.Cells
ab.
D.h. man müßte wohl etwas einbauen, dass er bei leerem "GefilterterBereich" zum nächsten geht.
Kann jemand Helfen?
Vielen lieben Dank und Gruß Lutz