habe in einer Vokabelliste teilweise folgendes stehen:
to xxxx (xxx ist irgendein Verb)
Das ganze soll folgendermassen sortiert werden:
xxx (to)
Wie mache ich das?
Danke,
Uwe
| |||||||||||||||||
Sub to_austauschen_2()
Application.ScreenUpdating = False
Columns("A:A").Copy
Columns("B:B").PasteSpecial Paste:=xlPasteFormats
z = Range("A65536").End(xlUp).Row
For i = 1 To z
ber = Cells(i, 1)
If Len(ber) > Len(Application.WorksheetFunction.Substitute(ber, " to ", " ")) Then
z1 = Application.WorksheetFunction.Find(" to ", ber)
z2 = Application.WorksheetFunction.Find(" ", ber, z1 + 4)
txt1 = Mid(ber, z1, 4)
txt2 = Mid(ber, z1 + 4, z2 - z1 - 4)
zuers = txt1 & txt2
ber = Application.WorksheetFunction.Substitute(ber, zuers, " " & txt2 & " (to)")
Cells(i, 2) = ber
z3 = Application.WorksheetFunction.Find(";", ber)
Cells(i, 2).Characters(Start:=z3, Length:=Len(ber)).Font.FontStyle = "Fett"
End If
Next i
For Each cell In Columns("B:B").SpecialCells(xlCellTypeBlanks)
cell.Offset(0, -1).Copy Destination:=cell
Next
Application.ScreenUpdating = True
End Sub
Problemstellung
In einer Liste enthaltende Kürzel sollen durch Komplettbegriffe ersetzt werden.
Problemstellung
In einer Tabelle stehen in verschiedenen Zellen Internetadressen. Wie kann ich diese Zellen in Hyperlinks umwandeln, ohne die Adressen im HyperLink-Dialog neu eintippen zu müssen?
Problemstellung
Wie kann ich als Text vorhandene Werte in Zahlen umwandeln?
Problemstellung
Wie kann ich in allen Zeichenfolgen in Spalte A die Punkte durch Leerzeichen ersetzen und die überflüssigen Leerzeichen entfernen. Das Ergebnis soll aus Kleinbuchstaben bestehen und in Spalte B ausgegeben werden.
Problemstellung
Wie kann ich Eingaben in eine UserForm-TextBox im Format TTMMJJ in ein gültiges Datum umwandeln? Es soll ebenfalls eine Eingabeprüfung erfolgen.
Problemstellung
Wie kann ich eine Zeichenfolge wie "21307" in eine Zeit mit dem Format m:ss,00 (2:13,07) umwandeln. Mit dieser Zeit soll weitergerechnet werden können.
Problemstellung
Alle "u" bis zum aktuellen Datum sollen in "U" umgewandelt werden.
Problemstellung
Nach einer Formatänderung von Zellen von Zahlenformaten zu Text werden die Zahlen zwar linksbündig dargestellt, verlieren ihre Zahleneigenschaft aber erst, wenn sie editiert werden. Die Routine wandelt den ausgewählten Bereich in Zahlen um.