Probleme mit einer Funktion in VBA
11.07.2020 01:44:10
Sleepyhead
ich habe mit einer kleinen Funktion ein Problem und kann den Fehler darin nicht finden.
Hintergrund der Funktion ist es, dass in einer Matrix Daten eingegeben werden und diese in einem seperaten Worksheet je nach Zeichenlänge (Startdatum und Enddatum, nur eines davon, gar nichts, oder TBA) linksbündig, rechtsbündig oder zentral formatiert werden sollen.
Ich bin für jede Hilfe dankbar ;)
Public Sub Timeupdate()
'Update der Ankunfts- und Abfahrtszeiten in der Info Data
Dim n As Integer
Dim Zelleninhalt
For n = 33 To 72 'n beschreibt in welchen Reihen sich die Auflistung der Zeit in der _
INFO DATA befindet
If Sheets("INFO DATA").Cells(n, 6).Value "" Then
If Sheets("INFO DATA").Cells(n, 6).Len = 6 Then 'Zeiten werden immer im Format " _
_
HH:MM-" geschrieben (6Zeichen) ggf. werden aber auch "HH:MM-HH:MM" oder "TBA" eingetragen
Zelleninhalt = Sheets("INFO DATA").Cells(n, 6).Value 'Kopieren des Inhalts _
_
von der gewählten Zelle in "Zelleninhalt"
If Mid(Zelleninhalt, 6, 1) = "-" Then
Sheets("INFO DATA").Cells(n, 6).TextAlign = 1 'Wenn das "-" am Ende _
steht linksbündig
Else
Sheets("INFO DATA").Cells(n, 6).TextAlign = 3 'Wenn das "-" am Anfang _
_
steht rechtsbündig
End If
Else
Sheets("INFO DATA").Cells(n, 6).TextAlign = 2 'Wenn das "-" mittig steht _
oder "TBA" eingetragen ist zentriert
End If
End If
Next n
End Sub
Anzeige