Prozent-Format Problem
23.11.2021 13:42:22
Sandy
ich füge per CommandButton und Userform eine komplette Zeile quasi als Master ein:
Private Sub CommandButton1_Click()
Dim iRow As Long
txtEnde = Format(CDate(txtEnde.Text), "DD.MM.YYYY")
Dim zelle As Range
Dim bezug As Range
Dim formel As String
iRow = Tabelle1.Range("C" & Rows.Count).End(xlUp).Row + 1
formel = "=WENN($F9=""erledigt"";""x"";"""")"""
With Tabelle1
.Range("C" & iRow).Value = Me.txtAufgabe.Value
.Range("D" & iRow).Value = Me.txtBeschreibung.Value
.Range("E" & iRow).Value = "Mittel"
.Range("F" & iRow).Value = "offen"
.Range("G" & iRow).Value = "Nicht begonnen"
.Range("H" & iRow).Value = "Nicht begonnen"
.Range("I" & iRow).Value = Me.txtAnfang.Value
If IsDate(txtEnde.Text) Then
.Range("J" & iRow).Value = CDate(txtEnde.Text)
End If
.Range("K" & iRow).Value = "0 %"
.Range("L" & iRow).Value = "0 %"
End With
Gesamte Zeile hinzufügen klappt super.
Zeile L wird mir immer als Text eingefügt und ist dann natürlich ein Fehler weil ein Datenbalken mit Prozent hinterlegt ist.
Bei Zeile K wird jedoch Prozent übernommen und deswegen nicht fehlerhaft angezeigt. Wie bekomme ich diesen Fehler in Griff.
Vielen Dank
Liebe Grüße
Sandy