Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nummerieren über Eingabe in Zelle

Forumthread: Zellen nummerieren über Eingabe in Zelle

Zellen nummerieren über Eingabe in Zelle
18.02.2015 16:50:24
Vic
Hallo und sorry für die krude Überschrift - mir ist keine bessere Beschreibung eingefallen.
Die konkrete Fragestellung: ich möchte in Zelle C11 [Sheets("Start")] einen Wert zwischen 1 und x (ca. 20) eingeben. Daraufhin soll in Zelle A20 fortlaufend eine Nummerierung bis erreichen des Wertes in Zelle C11 eingetragen werden.
Bsp.: Bei Eingabe der Zahl 12 in Zelle C11
A20 = 1
A21 = 2
usw. bis
A31= 12
Das Sahnehäubchen wäre, wenn in B20 ff. (alle gefüllten Zellen in A 20 bis Ax)der Begriff Woche eingetragen würde.
Wie ließe sich das in VBA umsetzen?
Vorab Danke,
Vic

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen nummerieren über Eingabe in Zelle
18.02.2015 17:22:20
Andreas
Hallo Vic,
muss es unbedingt VBA sein? Ginge auch per Formeln.
mfg, Andreas

AW: Beispiel mit Formeln
18.02.2015 17:32:11
Andreas
Hallo Vic,
hier mal eine Formellösung:

In A20 =Wenn(C11"";1;"")
In A21 =WENN(A20>=$C$11;"";WENN(A20=0;;A20+1))
Die Formel in A21 runterziehen.

In Zelle B20 =Wenn(A20"";"Woche";"")
Die Formel in B20 runterziehen
mfg, Andreas

Anzeige
AW: Zellen nummerieren über Eingabe in Zelle
18.02.2015 17:32:22
UweD
Hallo
- rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Makro reinkopieren
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Z%, I&, LR&
On Error GoTo Fehler
Z = 20
If Not Intersect(Target, Range("C11")) Is Nothing Then
LR = Application.Max(Z, Cells(Rows.Count, 1).End(xlUp).Row) 'letzte Zeile in Spalte A
Application.EnableEvents = False
Range(Cells(Z, 1), Cells(LR, 2)).ClearContents
For I = 0 To Target - 1
Cells(I + Z, 1) = I + 1
Cells(I + Z, 2) = "Woche"
Next I
End If
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Anzeige
AW: Zellen nummerieren über Eingabe in Zelle
18.02.2015 17:53:52
Matthias
Hallo
Sub Erstellen()
Dim lng&, start&
On Error GoTo Fehler:
start = 20
lng = Worksheets("Start").Range("C11").Value
If IsNumeric(lng) Then
If CLng(lng) >= 0 And CLng(lng)
Einfach den Code einer Schaltfläche zuweisen
Gruß Matthias

Anzeige
falsch verstanden ...
18.02.2015 23:19:17
Matthias
Hallo
Ich hatte da einen Denkfehler.
Ich habe mich von A31 irretieren lassen
und nahm an Du willst nur bis max 31 hochzählen lassen.
Sorry ...
Für Interessierte dennoch die Datei, wie ich es verstanden hatte ...
https://www.herber.de/bbs/user/95854.xlsm
Gruß Matthias

Anzeige
AW: Zellen nummerieren über Eingabe in Zelle
19.02.2015 11:01:39
Vic
Vielen Dank ihr drei, alle Varianten funktionieren super. Formeln wollte ich vermeiden - ich habe mich für die Variante von Matthias L. entschieden, die Anpassung auf mehr als 31 Zeilen würde ja einfach funktionieren, ist aber in meinem Fall gar nicht notwendig.
Wünsche Euch ein schönes WE!
Anzeige
;

Forumthreads zu verwandten Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 Beiträge
Anzeige
Zelle kopieren, einfügen, nächste Zelle kopieren,
Andrea

Hallo,
ich hoffe, dass mir jemand bei meinem Problem helfen kann.
In dem Bereich B5:B50 habe ich im Tabellenblatt "TotalYear" Kostenstellen hinterlegt. Ich möchte B5 kopieren, xmal im Tabellenblatt "Upload Template" einfügen. Dann möchte ich B6 kopieren, xmal in dem Tabellenblatt "Upl...
10.03.2009 12:43:11
Thread-ID: 1058597
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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