VisualBasic numberFormat und RT-Err 1004

Somtaaw

Lieutenant
Registriert
Jan. 2008
Beiträge
658
Code ist bezogen auf VBA und Excel 2003.
In der vorletzten Zeile mit " Selection.NumberFormat = "TT.MM.JJJJ hh:mm:ss"" wirfts mich immer auf...

"Run-time error '1004':
Unable to set NumberFormat property of the Range Class"

Langsam bin ich mit meinem (für VBA nicht vorhandenen) Latein am Ende. Hab schon gegooglet, aber keines der Ergebnis, bzw. keiner der Lösungsvorschläge hat geholfen. Ich machs höchstens schlimmer. :(

Das best: Er wirft beim Ausführen des Makros zwar den Fehler, ABER er ändert die Formatierung der entsprechenden Spalten, trotzdem in mein gewünschtes Format ^^


Code:
Sub Filter()
    Dim singleRow As Range
    Dim specRow As Range
    Dim rowNumData As Integer
    Dim rowNumAus As Integer
    Dim rowStrData As String
    Dim rowStrAus As String
    Dim specCell As Range
    
    rowNumAus = 0
    For rowNumData = 1 To 5000
        If Not ActiveSheet.Name = "Data" Then
            Sheets("Data").Select
        End If
        If Cells(rowNumData, 17) Like "AS_*" Then
            If Not Cells(rowNumData, 14) = "closed" Then
                rowNumAus = rowNumAus + 1
                rowStrData = CStr(rowNumData) + ":" + CStr(rowNumData)
                rowStrAus = CStr(rowNumAus) + ":" + CStr(rowNumAus)
                Range(rowStrData).Select
                Selection.Copy
                Sheets("Auswertung").Select
                Range(rowStrAus).Select
                ActiveSheet.Paste
            End If
        End If
    Next rowNumData
    
    If Not ActiveSheet.Name = "Auswertung" Then
        Sheets("Auswertung").Select
    End If
    Dim Ranger As String
    Ranger = "K1:K" + CStr(rowNumAus)
    Range(Ranger).Select
    Selection.NumberFormat = "TT.MM.JJJJ hh:mm:ss"
    JobDone.Show
End Sub


Entschuldigt den hässlichen Code. VBA (+Excel) ist neu für mich. Bin C# und den damit verbunden Luxus schon zu sehr gewöhnt. (Obwohl mit ner vernünftigen IDE selbst C ganz spaßig ist :>)

Hoffentlich kann trotzdem wer helfen.
 
Nur eine vermutung, da gerade kein Excel zur hand.

Eigentlich müsstest du ja auch drauf kommen, wenn du C# kannst.
Eine properity hat set und get. Wenn ich allerdings nur das get der properity angebe, dann kommt eben genau so eine Fehlermeldung, weil du dann der Properity nichts zuweisen kannst.

Maybe ist das Feld auch durch irgend etwas geschützt.
 
Zuletzt bearbeitet:
Ich geh davon aus dass das set und get ist... (der ObjectViewer ist leider unter aller Sau)
Ein Aufgezeichnetes Makro wo ich das Format ändere, arbeitet übrigends genauso.. also liegts leider nicht daran
 
Zurück
Oben