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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen durchnumerieren per Input-Box???

Forumthread: Zellen durchnumerieren per Input-Box???

Zellen durchnumerieren per Input-Box???
05.11.2003 18:29:41
Selma
Hi Leute,

ich brauche wieder ein Makro (für Spalte D) :)

wenn ich z.B in Zelle D20 eine Null also "0" eintippe und Enter drücke dann soll ein Input-Box aufgehen.
In dem Input-Box möchte ich ein Zahl eintragen z.B 10 und dann beim Klick auf OK soll im Zellenbereich
D20:D30 (Zelle D20 + 10 weiteren Zellen ergeben D30) eine Null "0" stehen.

Wenn ich z.B in Zelle D40 eine eine "1" eintippe und Enter drücke dann soll ebenso ein Input-Box aufgehen.
In dem Input-Box möchte ich auch Zahl eingeben z.B. 15 und dann beim Klick auf OK sollen die nächsten Zellen
durchnummeriert werden bis Zahl 15. Das wäre der Zellenbereich D40:D54 (D40 = 1 ....... D54= 15).

Das Ergebniss würde so aussehen (siehe Anhang).
https://www.herber.de/bbs/user/1758.xls

Was sieht das Makro aus?

PS: Das Makro gilt nur für Spalte D und nicht für alle anderen Spalten.
PPS: Input-Box soll nur beim Zahl 0 und 1 aufgehen.

Vielen Dank im Voraus....

Gruß
Selma
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen durchnumerieren per Input-Box???
05.11.2003 19:03:57
Beni
Hallo Selma,
kopiere diesen Code und füge ihn in das Tabellenmodul ein, mit rechtsklick auf das Tabellenregiste/Code einfügen.
Gruss Beni


Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Or Target = 1 Then
Dim Wert
If Target.Row = 20 And Target.Column = 4 Then
Titel = "InputBox"
Mldg = "Wert eingeben"
Wert = InputBox(Mldg, Titel)
For i = 21 To Wert + 20
Cells(i, 4) = [D20]
Next i
End If
If Target.Row = 40 And Target.Column = 4 Then
Titel = "InputBox"
Mldg = "Wert eingeben"
Wert = InputBox(Mldg, Titel)
Wert1 = [D40] + 1
For i = 41 To Wert + 39
Cells(i, 4) = Wert1
Wert1 = Wert1 + 1
Next i
End If
End If
End Sub

Anzeige
AW: Zellen durchnumerieren per Input-Box???
06.11.2003 01:19:35
Selma
Hallo,

@Beni: Zelen D20 und D40 waren nur Beispiele, das Makro sollte wie ich es geschrieben habe für ganze Spalte D gelten ;) so wie es Peter gemacht hat. ;)

Vielen Dank vielmals und eine gute Nacht wünscht Euch Selma.....
AW: Zellen durchnumerieren per Input-Box???
05.11.2003 19:35:25
PeterW
Hallo Selma,

schau dir das mal an:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lgAnzZeile As Long
Dim lgCount As Long
On Error GoTo ErrHandler
If Target.Column = 4 And (Target = 0 Or Target = 1) Then
Application.EnableEvents = False
lgAnzZeile = InputBox("Anzahl der Zeilen")
Select Case Target
Case 0
Range(Cells(Target.Row, 4), Cells(Target.Row + lgAnzZeile, 4)) = 0
Case 1
For lgCount = Target.Row + 1 To Target.Row + lgAnzZeile - 1
Cells(lgCount, 4) = Cells(lgCount - 1, 4) + 1
Next
End Select
End If
Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Gruß
Peter
Anzeige
AW: Zellen durchnumerieren per Input-Box???
06.11.2003 02:15:42
Selma
Hi Peter,

das Makro läuft wie schon gesagt prima....

Ich hatte auch Gedankenfehler bei meiner Frage ;) und zwar wenn ich eine Null "0" in z.B. Zelle D20 eintippe und Input-Box aufgeht und ich z.B. Zahl 10 eintrage dann soll
der Zellenbereich D20:D29 eine Null bekommen. Also soviele Zellen bekommen eine "0" wieviel ich es in Input-Box eintrage inclusiv Eingabezelle (bevor Input-Box starten) und nicht wie zur Zeit (Eingabezelle + Input-Box Wert).

NUR wenn ich ein Zahl in Input-Box eingetragen habe und auf OK klicke dann soll ich automatisch in nächste leere Zelle (nächste Zelle gesehen von Zelle wo das Input-Box startete) springen. In o.g. Beispiel wäre es die Zelle D30.
Das Springen in nächste leere Zelle gilt für beide Regeln (für 0 als auch für Nummerierung).

Vielen Dank nochmals....

Schöne Grüße
Selma
Anzeige
AW: Zellen durchnumerieren per Input-Box???
06.11.2003 05:07:31
PeterW
Hallo Selma,

dann so?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lgAnzZeile As Long
Dim lgCount As Long
On Error GoTo ErrHandler
If Target.Column = 4 And (Target = 0 Or Target = 1) Then
Application.EnableEvents = False
lgAnzZeile = InputBox("Anzahl der Zeilen")
Select Case Target
Case 0
Range(Cells(Target.Row, 4), Cells(Target.Row + lgAnzZeile - 1, 4)) = 0
Case 1
For lgCount = Target.Row + 1 To Target.Row + lgAnzZeile - 1
Cells(lgCount, 4) = Cells(lgCount - 1, 4) + 1
Next
End Select
End If
Cells(Target.Row + lgAnzZeile, 4).Select
Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Gruß
Peter
Anzeige
AW: Zellen durchnumerieren per Input-Box???
06.11.2003 08:58:05
Selma
Morgen Peter,

Dankeschön, es funzt prima....

Schöne Grüße
Selma
;

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Anzeige
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
Anzeige
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Wert aus aktiver Zelle in InputBox übertragen
Axel

Hi ihr fleißigen Helferlein :)
Ich habe hier eine Suchfunfunktion mit InputBox.
Ist es irgendwie möglich beim Start des Makros den Wert der aktiven Zelle in die Inputbox automatisch zu übertragen, so das ich ihn nicht selbst hineintippen/kopieren brauch?
Die Suche soll trotzdem über...
13.12.2008 07:44:52
Thread-ID: 1032569
3 Beiträge
Zellen bestimmter Werte in ListBox listen
Harry

Wie können aus einer Ecxel-Tabelle (z. B.: A1-E150) nur die Zeilen in eine List- oder ComboBox gelistet werden, bei denen in der Spalte E der Wert (z.B.) 2 oder größerer ist?
Alle Zellen in Spalte E1 bis E150 haben einen numerischen Inhalt.
Besten Dank für jede Hilfe Harry
13.01.2009 13:51:23
Thread-ID: 1039228
10 Beiträge
Checkbox in Zelle schreiben
Markus

Hallo
Wie kann ich erreichen, daß zwei Checkboxen in einer Userform in die Zellen ein (G) schreiben und wenn ich die Checkboxen das Häcken entferne auch das (G) nicht mehr drin ist.
Wäre es auch möglich, daß wenn Checkbox1 ein Häcken hat Checkbox2 keines mehr hat.
Checkbox1 in Zelle...
30.01.2009 22:42:52
Thread-ID: 1045549
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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