habe in einer Spalte Text stehen der immer mit einem fettgedruckten Textteil anfängt. Ich möchte alles was nach dem fettgedrucktem steht (also nicht fett ist) in Spalte 2 verschieben.
Danke,
Uwe
Option Explicit
Sub Trennen()
Dim Zelle As Range
Dim i As Integer
On Error GoTo Fehler
Application.ScreenUpdating = False
For Each Zelle In Range(Cells(1, 1), Cells(Range("A1").End(xlDown).Row, 1))
i = 0
Do
i = i + 1
Loop Until Not Zelle.Characters(i, 1).Font.Bold
Zelle.Offset(0, 1) = Mid(Zelle, i)
Zelle = Left(Zelle, i - 1)
Next
Fehler:
Application.ScreenUpdating = True
Set Zelle = Nothing
End Sub
Option Explicit
Sub Trennen()
Dim Zelle As Range
Dim i As Integer, p As Integer
On Error GoTo Fehler
Application.ScreenUpdating = False
For Each Zelle In Range(Cells(1, 1), Cells(Range("A1").End(xlDown).Row, 1))
i = 0
p = Len(Zelle)
Do
i = i + 1
Loop Until Not Zelle.Characters(i, 1).Font.Bold Or i > p
Zelle.Offset(0, 1) = Mid(Zelle, i)
Zelle = Left(Zelle, i - 1)
Next
Fehler:
Application.ScreenUpdating = True
Set Zelle = Nothing
End Sub
Problemstellung
Wie kann ich festellen, in wieviel Spalten bestimmte Zahlenreihen erscheinen?
Problemstellung
Wie kann ich die Excel-Funktion ANZAHL2 anwenden, ohne daß die ausgeblendeten Spalten mitgezählt werden?
Problemstellung
Wie kann ich die Spalten einer Mehrbereichsauswahl ausblenden?
Problemstellung
Wie kann ich über eine VBA-Prozedur den Namen der Spalte (A, B, C) bestimmen, in der sich die aktive Zelle befindet?
Problemstellung
Wie kann ich die Zeilen unterhalb des Cursors und die Spalten rechts des Cursors aus- bzw. einblenden?
Problemstellung
Wie kann ich das Aus- und Einblenden von Zeilen und Spalten über ein Drehfeld steuern (Excel-Version XL8)?
Problemstellung
Wenn in eine Zelle der ersten Zeile einer Spalte eine 12 eingegeben wird, soll eine Addition der Spalte erfolgen.
Problemstellung
Wie kann ich über VBA abfragen, welche Spalten in einer Mehrbereichsauswahl markiert sind?