|
Hallo zusammen,
könnte mir jemand bitte weiterhelfen? Das ist meine Aufgabestellung:
In den Zellen befinden sich spaltenweise kurze Texte. Immer nur eine Spalte betroffen.
Ich möchte diese Zellen markieren und dann eine Sub-Prozedur laufen lassen.
Dadurch sollte in den Zellen rechts vom markierten Bereich dieser Text genauso wie links mit einer kleinen Ergänzung aufscheinen: Dem Text sollte laufende Nummer (angefangen mit 1) vorangestellt werden und Zeichen ":", Bsp:
Text1 -> 1: Text1
Text2 -> 2: Text2
Text3 -> 3: Text3
Text4 -> 4: Text4
Aber es funktioniert noch nicht ganz richtig. Es wird soweit irgendwie nur für die letzte Zelle aus dem markierten Bereich als Ergebnis gemacht.
Vielen Dank im Voraus!
Hier ist der Code:
++++++++++++++++++++++++++++++++++++++++++
Option Explicit
Option Compare Text
Public Sub Items_aus_FB()
Dim FB As Range
Dim FBvalue As String
Dim Ergebnis As String
Dim i As Integer
i = 0
For Each FB In Selection
i = i + 1
FBvalue = FB.Value
Ergebnis = CStr(i) & ":" & FBvalue
ActiveCell.Offset(0, 1).Value = Ergebnis
Next FB
End Sub
++++++++++++++++++++++++++++++++++++++++++
LG
Natalie
|