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 ^^
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.
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.