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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige