Hallo,
ich habe folgendes Problem:
In einem Blatt werden Eingaben aus einer Userform protokolliert. Da sich die Größe der Datenbereiche verändert, muss ich die Formatierungen flexibel gestalten. Die Daten sind alle Text.
Ich möchte jetzt im Arbeitsblatt definieren, wie in Abhängigkeit vom Text das Format verändert wird.
Also etwa:
If Sheets("protokoll").Range("b3:b1000").Value Like "Anaylse" Then
With Sheets("protokoll").Range("b3:b1000")
.HorizontalAlignment = xlLeft
.Color = ("180,220,0")
End With
End If
Ich bekomme Laufzeitfehler 13: Typen unverträglich für die erste Zeile.
Kann mir da jemand weiterhelfen?
MfG,
Gunther