Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zahl vorsetzen

Forumthread: Zahl vorsetzen

Zahl vorsetzen
12.10.2017 07:30:34
rangy
Guten Morgen,
Frage: Ich möchte gerne folgendes erreichen:
(Steht alles in Spalte 1 und hat dazwischen 1 Leerzeile)
Die erste Zahl mit Punkt soll jeweils vor das a), b) und c) gesetzt werden.
Vielleicht über VBA oder ?
1. Was kommt da rein:
a) Mehl
b) Butter
c) Öl
2. Wieviele Bäume:
a) 3
b) 1
c) 0
3. Was für ein Tier:
a) Amsel
b) Fuchs
c) Huhn
4. usw
Viele Grüße
rangy
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl vorsetzen
12.10.2017 09:08:01
UweD
Hallo
so?
in ein Modul
Sub Nummerierung()
    Dim SP As Integer, EZ As Integer, LR As Double, i As Double
    Dim Lng As Integer, Zahl As Integer, Wert As String
    
    SP = 1 'Spalte A 
    EZ = 1 ' ggf Überschrift beachten 
    
    With Sheets("Tabelle1")
        LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
    
        For i = EZ To LR
            Lng = InStr(.Cells(i, SP), " ") 'erstes Leerzeichen finden 
            If Lng > 0 Then
                Wert = Left(.Cells(i, SP), Lng - 1) ' Zeichen bis Leerzeichen 
                If IsNumeric(Wert) Then 'wenn Zahl... 
                    Zahl = Wert
                Else
                    .Cells(i, SP) = Zahl & ". " & .Cells(i, SP)
                End If
            End If
        Next
        
    End With
End Sub

LG UweD
Anzeige
AW: Zahl vorsetzen
12.10.2017 09:21:05
Ralf
Hi rangy,
via Formel geht es nur mit Hilfsspalte.
Angenommen, Du beginnst Deine Aufzählung wie beschrieben in A1, dann habe ich jetzt als Hilfsspalte Spalte C genutzt.
In C2 schreibst Du folgende Formel:
=WENN(A2="";"";WENN(ISTZAHL(UNICODE(LINKS(A1;1)));LINKS(A1;3) &A2;A2)),
in C3 diese:
=WENN(A3="";"";WENN(ISTZAHL(UNICODE(LINKS(C2;1)));LINKS(C2;3) &A3;A3))
Die ziehst Du dann nach unten.
Ralf
Anzeige
AW: Zahl vorsetzen
12.10.2017 15:02:42
rangy
Vielen Dank Uwe und Ralf.
Ihr habt mir sehr geholfen.
Danke....
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige