Supportnet / Forum / Tabellenkalkulation

Halloooooo! weiß einer von euch, wie man in Excel automatisch durchnumerieren kann? (auch bei Zelle löschen) Danke

Wie meinst Du das genau ?
Willst Du z.B die Zeilen durchnummerieren ?

A1 = 1
A2 = A1 + 1
Diese Formel dann nach unten ausfüllen

vadder

schreib in eine zeile 1 und in die nächste eine 2. dann markierst du beide zeilen und dann gehste mit der maus an die unterste rechte ecke der markierung und dort kommt dann ein kreuz. drauf klicken und beliebig nach unten ziehen und die nummerierung wird ausgefüllt.

mfg

ich meine wenn ich später z.B. eine Zeile löschen will, ob sich das machen lässt, dass die Numerierung dann automatisch ändert?

Hi!

so wie du es gesagt hast das ist schon ganz gut, aber wenn ich eine Zeile lösche, dann sind auf der nächsten Zeile Raute-Zeichen

hi alle :)

kleines beispiel :)

es wird die aktive zeile geloescht und spalte A neu durchnumeriert :)

gruss nighty

Sub makro01()
On Error Resume Next
With Worksheet
Range(Selection.Rows & ":" & Selection.Rows).Delete
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
a = LastCell.Row
Do While Application.CountA(Rows(a)) = 0 And a <> 1
a = a - 1
Loop
alta = a
lzeile = alta
For t1 = 1 To lzeile
Range("A" & t1) = t1
Next t1
Range("A" & t1 + 1) = ""
End With
End Sub

hi alle :)

den code koennte man ja auch in einen commandbutton setzten :)

gruss nighty

wie geht das?

Hallo,

ich habe leider wieder mal nur eine Formellösung:

=ZEILE()

Wenn die NUmmerierung nicht in der ersten Zeile beginnen soll, dann einfach die benötiget Anzahl von Zeilen "abziehen", also bei Beginn in Zeile A4 folgende Formel:

=ZEILE()-3

Dann kann man löschen und sortieren und die Nummerierung klappt auch ganz ohne Makro und Command-Button ;-)

CU
want2cu

@nighty
Du bist 'ne Wucht in VBA, aber für dieses kleine Problemchen hat Excel doch alles eingebaut.

@Hallihallo
Geh' auf Zelle, die zuletzt die richtige Nummer anzeigt und ziehe sie eine Zeile tiefer, dann stimmt die Nummerierung wieder für alle (funktioniert so nur bei der Lösung von vadder, die Lösung von jim erfordert, daß Du alle folgenden Zellen markierst).

Gruß Peter

@Peter43
so funktioniert das aber nicht. spätestens dann wenn ich eine Zelle lösche ist alles weg

@want2cu

Vielen Dank. hat super geklappt.

Gruß

hi alle :)

@peter
hi wie so oft :)

aber mannigfalte auswahl hat hallihallo jetzt :)

dann noch schnell dieses :)

loescht die aktuelle zeile und gibt die zeilennummern im kommentarfeld spalte A aus :)

gruss nighty

Sub makro01()
On Error Resume Next
With Worksheet
Range(Selection.Rows & ":" & Selection.Rows).Delete
Set LastCell = ActiveSheet.Cells.SpecialCells(xlLastCell)
alta = LastCell.Row
a = LastCell.Row
Do While Application.CountA(Rows(a)) = 0 And a <> 1
a = a - 1
Loop
alta = a
lzeile = alta
For t1 = 1 To lzeile
Range("A" & t1).AddComment
Range("A" & t1).Comment.Text Text:="Zeile " & t1
Range("A" & t1).Comment.Visible = False
Next t1
Range("A" & t1 + 1) = ""
Range("A" & t1 + 1).Comment.Delete
End With
End Sub

Hallo want2cu

ich hatte ja gesagt, dass das super geklappt hat, aber wenn ich von anfang an, eine zeile frei lassen will und durchnumeriere und dann die Nummer von der freien Zeile rausnehme dann ändern sich die nummern nach der freien zeile nicht automatisch, dann muss ich nämlich ab der nächsten Zeile wieder die formel eingeben, und da ich viele freie zeilen habe ich das nicht so toll weil ich das jedesmal eingeben muss. hast du da eine andere Lösung?

Hi Hallihallo,

also wenn ich es richtig verstehe, willst Du nur Zeilen mit Einträgen nummerieren und die erste Zeile lässt Du frei.

Ich gehe mal davon aus, daß die Nummerierung in Spalte A steht und in Spalte B ein Eintrag ist, wenn nummeriert werden soll.

Formel in A2:
=WENN(B2="";"";MAX($A$1:A1)+1)

Diese Formel kannst Du beliebig weit nach unten kopieren.

Wenn Du Zeilen löscht, funktioniert das auch weiterhin.

Wir müssen nur sicherstellen, daß wir unter Zeilen löschen auch das selbe verstehen.

Zeilen werden gelöscht durch Markieren der Zeilen in der Zeilennummerierung, also in den Zeilenköpfen und anschliessendes Drücken von
Strg (gedrückt halten ) und dem Minuszeichen.

Zeilen löschen heisst nicht, die Zellinhalte markieren und dann die Inhalte entfernen.
Dann ist natürlich die Formel auch weg.

CU Aliba

Hallo Aliba!

Danke. die Formel habe ich eingegeben und dann versucht nach unten zu kopieren, es ging nicht, es ging nur bis zur nächsten Zeile: also hier Zeile 3. Für den Rest macht er nichts, also kein Text.

Unter Zeile lösche meine ich natürlich Zeile löschen nicht Inhalt löschen.

Ich will nicht nur die erste Zeile frei haben, in der Tabelle sind mehrere Zeilen frei (jeweils 1 oder 2 hintereinander).

Vielleicht kannst du mir jetzt weiter helfen. würde mich sehr freuen.

Danke.

Hi Hallihallo,

um das noch mal zu verdeutlichen. Wenn Du die Formel in Spalte A nach unten kopierst,
dann wird jeweils in den Zeilen , in denen in Spalte B ein Eintrag ist, der Zähler um 1 erhöht.

Sollte in Spalte B nichts stehen geschieht auch nichts.

Vielleicht erklärst Du Deinen Tabellenaufbau noch einmal. Wo steht den was, wenn die Zeile nicht leer ist.

Wenn der nach der Zeile 3 nicht weiter zählt, dann steht wahrscheinlich in Spalte B nichts.


Cu Aliba

Hi Aliba!

meine Tabelle:

1.Zeile: Überschrift (keine Numerierung)
2.Zeile: freie Zeile (keine Nummerierung)
3.Zeile: Überschrift (keine Numerierung)
4.Zeile: erste Zeile die numeriert werden soll (1)
5.Zeile: zweite " (2)
6.Zeile: dritte " (3)
7.Zeile: vierte " (4)
8.Zeile: fünfte " (5)
9.Zeile: sechste " (6)
10.Zeile: freie Zeile (keine Numerierung)
11.Zeile: Überschrift (keine Numerierung)
12.Zeile:siebte Zeile d. numeriert werden soll (7)

usw.

Bist du Mitglied hier, oder einfach nur so?

Ich habe mich gerade registriert, mein Nickname ist sweetbaby.
Danke.

Hallo Aliba!

hab noch was vergessen. Ja in Spalte B ist jeweils ein Eintrag.

Hi Hallihallo,

bin kein Member, treib mich aber schon ne ganze Zeit lang hier rum.

So, doch nun zu Deinem Problem.

Mit einer automatischen Nummerierung sieht das unter diesen Umständen nicht so gut aus.

Es sei denn, es gibt irgendwelche Merkmale für die Überschriften. (z.B. die stehen nicht in Spalte B, sondern erst in Spalte C)

Wo stehen denn die Texte der Zeilen, die nummeriert werden sollen? Immer in Spalte B ??

Nicht nummeriert werden sollen:
-Überschriften
-leere Zeilen

Ist das so richtig?

Du kannst mir auch mal die Tabelle mailen , wenn Du willst. Vielleicht kann man dann den Aufbau deutlicher erkennen.

CU Aliba

ali-gitti@t-online.de

Hallo Hallohallo,

so wie sich das mittlerweile entwickelt, hat das mit "automatisch durchnummerieren" nicht mehr so viel zu tun.

Wenn die Nummerierung wieder teilweise unterbrochen wird und in den Zeilen, wo keine NUmmerierung sein soll, mal was steht und mal nicht, dann frage ich mich allen Ernstes: warum kannst du dein Tabellenblatt nicht vom Format her einmal erstellen und dann so benutzen?

Die ganze Automatik bringt nix, wenn man so eine individuelle NUmmerierung dann in einem Bruchteil der Zeit getippt hat, die hier für die Formal- und VBA-Akrobatik drauf geht.

Vielleicht nummerierst du deine Zeilen autoamtisch(Zahl 1 eintragen, dann mit gedrückter STRG-Taste diese Zahl nach unten ziehen ) und fügst dann die benötigten Zeilen OHNE Nummerierung ein.

CU
want2cu

Hi du da,

hatte lange das gleiche Problem, bin aber zu einer Lösung gekommen (vielleicht auch nicht die einfachste!) Ich habe dir meine Vorlage gemailt. Hoffe konnte dir helfen.

Gruß
Annette

• Excel Makro in viele Excel Files exportieren
• hat jemand ahnung von verweisfunktionen in excel
• Absturz von Powerpoint UND Excel
• Serienbrief aus EXCEl drucken