besondere Formatierung

Hallo zusammen,
ich benötige mal wieder etwas geistreiche Hilfe :-)
Ich komme mit einem (privaten) Excel-Problem nicht weiter.
Für einen Bundesliga-Tipp exportiere ich die abgegebenen Tipps von der Seite kicktipp.de nach Excel.
Das sieht dann aus wie in der angefügten Tabelle in der oberen Hälfte,
also z.B. 02:03 oder etwa 00:00.
Ich möchte jetzt (am besten mit einem Makro) die Tipps umformatieren, damit da ein 2:3 oder etwa ein 0:0 rauskommt. Das Ergebis soll also aussehen wie in der Datei mit grün dargestellt.
Kleiner Hinweis noch...ein 92:02:00 ist kein Versehen sondern Absicht.
Mit der 9 wird bei uns ein Jokertipp markiert. Da sollte dann ein 92:2 rauskommen.
Ich weiß sieht als Ergebnis eher kurios aus :-)
Kicktipp hängt da bei der Exportierung halt noch die :00 dran...keine Ahnung warum.
Schon jetzt einmal vielen Dank an alle helfenden Excelianer
harti
https://www.herber.de/bbs/user/115759.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Ja gut, dann probiere mal das Userförmchen aus...
https://www.herber.de/bbs/user/115766.xlsm
cu
Chris

Private Sub CommandButton1_Click()
Columns(ListBox1.ListIndex + 3).Cut
Columns(ListBox1.ListIndex + 2).Insert Shift:=xlToRight
UserForm_Initialize
End Sub

Private Sub CommandButton2_Click()
Columns(ListBox1.ListIndex + 3).Cut
Columns(ListBox1.ListIndex + 5).Insert Shift:=xlToRight
UserForm_Initialize
End Sub

Private Sub CommandButton3_Click()
Unload UserForm1
End Sub

Private Sub ListBox1_Click()
CommandButton1.Enabled = True
CommandButton2.Enabled = True
If ListBox1.ListIndex = 0 Then CommandButton1.Enabled = False
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then CommandButton2.Enabled = False
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Application.Transpose(Range(Range("C1"), Cells(1, Columns.Count).End(xlToLeft))) _
End Sub

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Columns(ListBox1.ListIndex + 3).Cut Columns(ListBox1.ListIndex + 2).Insert Shift:=xlToRight Columns(ListBox1.ListIndex + 15).Cut Columns(ListBox1.ListIndex + 14).Insert Shift:=xlToRight UserForm_Initialize Application.ScreenUpdating = True End Sub

Private Sub CommandButton2_Click() Application.ScreenUpdating = False Columns(ListBox1.ListIndex + 3).Cut Columns(ListBox1.ListIndex + 5).Insert Shift:=xlToRight Columns(ListBox1.ListIndex + 15).Cut Columns(ListBox1.ListIndex + 17).Insert Shift:=xlToRight UserForm_Initialize Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

besondere Formatierung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread