Andi hat mir Anfang Monat ein Makro erweitert, mit welchem eingefärbte Zellen, welche keinen Wert enthalten, mit dem Wert der ersten Zeile gefüllt werden. Unten das Script.
Funzt soweit tipptopp. Nun habe ich in einer Tabelle eine Fehlermeldung. Laufzeitfehler 13 - Typen unverträglich. Ich habe die Stelle in der Tabelle lokalisiert, weiss aber nicht, an was das liegen könnte. Also hab ich den Bereich in welchem der Fehler passiert in eine neue Tabelle kopiert und hier abgelegt.
https://www.herber.de/bbs/user/47125.xls
Vielen Dankfür Eure Hilfe! Matts
Sub FarbeInZahl()
Dim rngbereich As Range
For Each rngbereich In ActiveSheet.UsedRange
If rngbereich.Interior.ColorIndex xlNone And rngbereich.Value = "" Then
With ActiveSheet
rngbereich.Value = .Range(.Cells(1, rngbereich.Column), .Cells(1, rngbereich.Column) _
_
_
_
_
)
End With
End If
Next rngbereich
End Sub