ich bastle immer noch an mein kleines Problem. ich habe schon eine fast Lösung gefunden.
Mit Hilfe des untenstehenden Makro such ich in der 4. Zeile die Wörter Test 1 und Menge. Nach dem Fund formatiere ich die Spalte ins Uhrzeit Format.
Ich habe nur noch das Problem das ich es einfach nicht schaffe das dies Makro sich die Zeile mit der Überschrift selbst sucht. denn Sie steht mal in Zeile 5 mal in Zeile 6 usw.
Habe schon mit "ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row" versucht zu spielen aber es will nicht gelingen
Kann mir jemand dabei helfen?
liebe grüsse thomas
Sub SpaltenFormatierenSchleife()
Dim Spalte As Integer
Sheets("Tabelle1").Select
With Sheets("Tabelle1")
For Spalte = 1 To .UsedRange.Columns.Count
If .Cells(4, Spalte).Value = "TEST 1" Then
.Columns(Spalte).NumberFormat = "h:mm;@"
ElseIf .Cells(4, Spalte).Value = "Menge" Then
.Columns(Spalte).NumberFormat = "h:mm;@"
End If
Next Spalte
End With
End Sub