Format

Bild

Betrifft: Format von: Eleni
Geschrieben am: 13.04.2005 12:44:07

Hi,

Möchte folgenden Code so umschreiben, dass nur Datumseinträge der Form dd.mm.yy in einer beliebigen Zelle der Spalte H das Ereignis nach "Then" auslösen, klappt nicht so richtig. Bin für jeden Tipp dankbar.


Ciao, Eleni



Dim endup1 As Integer
Dim i As Integer
endup1 = ThisWorkbook.Sheets("080_2005").Range("H65536").End(xlUp).Row

For i = endup1 To 8 Step -1
If Range("H" & i).Value = "" Then
Range(("D" & i), ("F" & i)).Interior.ColorIndex = xlNone
End If

If Range("H" & i).Value <> "" Then
Range(("D" & i), ("F" & i)).Interior.ColorIndex = 15
Range("K" & i).FormulaR1C1 = "=RC[-3]-RC[-4]"
End If
Next i

Bild


Betrifft: AW: Format von: Fred
Geschrieben am: 13.04.2005 13:08:43

Hallo,

Columns("H:H").select
Selection.NumberFormat ="dd:mm:yy"

Fred


Bild


Betrifft: AW: Format von: Eleni
Geschrieben am: 13.04.2005 13:33:39

Hi Fred,

Die Formatierung hilft leider nicht, da in der Spalte H auch andere Einträge reinkommen (Buchstaben z.B.). Ne andere Idee?


Danke, Eleni


Bild


Betrifft: AW: Format von: paula
Geschrieben am: 13.04.2005 13:39:04

Hi Eleni
so gehts:


Sub test()
Dim endup1 As Integer
Dim i As Integer
endup1 = ThisWorkbook.Sheets("Tabelle1").Range("H65536").End(xlUp).Row
For i = endup1 To 8 Step -1
If IsDate(Range("H" & i)) Then
    Range(("D" & i), ("F" & i)).Interior.ColorIndex = 15
    Range("K" & i).FormulaR1C1 = "=RC[-3]-RC[-4]"
Else
    Range(("D" & i), ("F" & i)).Interior.ColorIndex = xlNone
End If
Next i
End Sub


Bitte Namen anpassen

Gruss Paula


Bild


Betrifft: AW: Format von: Eleni
Geschrieben am: 13.04.2005 13:59:05

Hallo Paula,

Danke, funktioniert prima.


Ciao, Eleni


Bild


Betrifft: Geschlossen, o.T. von: Eleni
Geschrieben am: 13.04.2005 13:59:49

o.T.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Format"