Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

autom. fortschreitende Nummerierung der Zeilen

autom. fortschreitende Nummerierung der Zeilen
10.04.2008 13:28:00
Hüseyin
Hallo zusammen,
ich habe folgendes Problem:
ich habe eine Userform mit 3 Registern. Die Eingaben in dieser Userform sollen nach dem OK-Klick in eine Excel Tabelle übertragen werden. Dabei möchte ich, dass die Inhalte eines jeden Registers als eine einzelne Zeile in die Excel-Tabelle eingetragen wird, d.h. es können max. 3 Zeilen pro OK-Klick in die Tabelle eingetragen werden. Bis hierher habe ich es auch gut hinbekommen...
Nun möchte ich, dass nach dem OK-Klick die Zeilen meiner Tabelle, die die Daten meiner Userform (als Zeile/Register) beinhaltet, auch gleich zusammenhängend (also pro OK-Klick) in Spalte A nummeriert werden,
d.h. Vorgang 1: Register 1, 2, 3 ausgefüllt -- OK-Klick -- Einlesen der Daten in die Tabelle (Zeilen 1, 2, 3)& gleichzeitig auch fortschreitende Nummerierung der Zeilen in der Form: 1., 1.1, 1.2
beim 2. Vorgang (also ein zweites Mal Ausfüllen der Userform) : 2., 2.1, 2.2
Kann mir da jemand weiterhelfen ?
Danke und Gruß
Hüseyin

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: autom. fortschreitende Nummerierung der Zeilen
10.04.2008 15:19:45
Tino
Hallo,
da du ja schon einen Anfang gemacht hast, könntest du eine Beispielmappe laden?
Sonst müssten wir das noch mal nachbauen, dieser Aufwand muss ja nicht sein.
Gruß
Tino

AW: autom. fortschreitende Nummerierung der Zeilen
10.04.2008 17:46:00
hueseyin.temiz@mann-hummel.com
Würde ich ja gerne machen, aber die Datei ist knapp 20 mb groß. Geht das überhaupt?
Gruß
Hüseyin

AW: autom. fortschreitende Nummerierung der Zeilen
10.04.2008 18:03:00
Tino
Hallo,
brauche doch nur die aufgebaute Userform,
mit deinen bereits bestehenden Code darin.
Gruß
Tino

AW: autom. fortschreitende Nummerierung der Zeilen
16.04.2008 11:35:00
Hüseyin
Sorry, hat etwas länger gedauert...
anbei der Link vom sehr stark reduzierten File. Aber das Prinzip sollte klar werden. Ich hab in die Entwicklungsumgebung (Ok-Klick) noch einmal eine Menge an Erläuterungen eingefügt. Die bitte berücksichtigen.
Danke!
Hüseyin

Anzeige
AW: autom. fortschreitende Nummerierung der Zeilen
16.04.2008 14:06:00
Hüseyin
Ich habs mir so überlegt:
der code sollte den Inhalt einer Zelle anschauen und "." suchen. Zu der Zahl links von diesem "." sollte 1 addiert werden. Wenn rechts von diesem Punkt eine Zahl existiert sollte auch hier 1 addiert werden. Wenn keine Zahl rechts vom "." existiert, dann soll dort eventuell die 1 hinkommen.
d.h.: wenn 1. dann 1.1
wenn 3.1 dann 3.2
usw.
das alles müsste ja mit den Funktionen mid, len oder ähnliches funktionieren, leider weiß ich nicht wie diese Funktionen aufzustellen sind.
ich hoffe dadurch wird das ganze etwas klarer :-)
Gruß
Hüseyin

Anzeige
AW: autom. fortschreitende Nummerierung der Zeilen
16.04.2008 15:22:00
Tino
Hallo,

"Wie gesagt: das einzige Problem ist jetzt nur noch, die Nummerierungen in der obigen Form fortlaufend hinzubekommen."


hier mal ein Beispiel, damit müsste es Funktionieren.
Aber achte darauf, die Zellen sollten bei solch einem Format (0.0 oder 1.1) in Textformat
Eingerichtet werden. Sonst erkennt Excel ein Datum und wird etwas eigenwillig.

Sub Test()
Dim Zelle As Range, SZelle As Long
Dim Nummer As String
Nummer = "1."
'Suche erste Zelle von unten die mit 1. anfängt
For SZelle = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If InStr(Cells(SZelle, 1), Nummer) > 0 Then
Set Zelle = Cells(SZelle, 1)
Exit For
End If
Next SZelle
If Not Zelle Is Nothing Then
Application.ScreenUpdating = False
'eine neue Spalte einfügen
Rows(Zelle.Offset(1, 0).Row).Insert Shift:=xlDown
'neue Nummer Berechnen
Zelle.Offset(1, 0) = _
Left$(Zelle, InStr(Zelle, ".")) & _
Right$(Zelle, Len(Zelle) - InStr(Zelle, ".")) + 1
Application.ScreenUpdating = True
End If
Set Zelle = Nothing
End Sub


Gruß
Tino

Anzeige
AW: autom. fortschreitende Nummerierung der Zeilen
16.04.2008 15:52:42
Hüseyin
Hallo,
in diesem Bereich kommts zum Fehler:
Zelle.Offset(1, 0) = _
Left$(Zelle, InStr(Zelle, ".")) & _
Right$(Zelle, Len(Zelle) - InStr(Zelle, ".")) + 1
Außerdem verstehe ich die Kommentare, die dabei sind, nicht ganz.
'Suche erste Zelle von unten die mit 1. anfängt
'eine neue Spalte einfügen
warum wird nach der ersten Zelle gesucht, die mit 1 anfängt?
und wieso wird eine Spalte eingefügt?
Könntest du die einzelnen Schritte kurz erläutern? Ich komm nicht ganz mit.
danke und gruß
hüseyin

AW: autom. fortschreitende Nummerierung der Zeilen
16.04.2008 16:43:06
Tino
Hallo,
in diesem Bereich kommts zum Fehler:
die Zellen liegen nicht in dem Format 1.0, 1.1,1.2 vor.
Siehe auch im letzten Beitrag.
Der Code nimmt rechts vom „.“ die Zahl und Addiert 1 dazu,
ist rechts davon keine Zahl kommt es zum Fehler.
das mit dem „1.“ war ein Beispiel,
du kannst auch nach 2. oder 3. suchen.
Die Suche geht von unten nach oben, da in der Regel eine Nummerierung
von 1.1, 1.2, … 2.1 usw. von oben nach unten erfolgt.
Neue Zeile einfügen.
In deiner Tabelle hast du es doch so beschrieben.
„der Rest wird deshalb immer um eine Zeile runterverschoben“
„Wie gesagt: das einzige Problem ist jetzt nur noch, die Nummerierungen in der obigen Form fortlaufend hinzubekommen.“
Oder hab ich dein Problem falsch verstanden?
Gruß
Tino
Anzeige

299 Forumthreads zu ähnlichen Themen

Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
Anzeige
In erste freie Spalte springen
Thomas

Hallo Exelgemeinde,
Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
Ist das möglich, und wie müßte das Makro dafür sein ?
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß Thomas
19.01.2009 16:48:17
Thread-ID: 1041558
3 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Anzeige
Listbox schreibt in oberste Zeile
Lucio

Hallo Zusammen
Habe die Frage vor etwa drei Tagen ins Netz gestellt. Leider hat sich kein Crack gemeldet.
Daher versuche ich es nochmals und Danke schon im Voraus für Eure hilfe.
Die Datei wäre so gut wie fertig wäre nicht dieses kleine problem.
Wenn ich Daten von der Listbox...
12.03.2009 21:21:19
Thread-ID: 1059676
8 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
Automatisch beim öffnen in nächste leere Zeile
chris58

Hallo !
Ich habe diesen Code gefunden der mir ermöglicht nach dem öffnen einer Datei in die nächste freie Zeile zu springen. Nun meine Frage: Kann man das automatisch machen. Also ich öffne die Datei und der Courser steht automatisch in der nächsten freien Zeile der Spalte A.
Danke für...
19.06.2009 13:24:19
Thread-ID: 1082886
8 Beiträge
Zeile ein und wieder ausblenden abhängig vom Wert
bustue

Hallo Leute ,
gibt es ein Makro das selbständig eine Zeile ausblendet wenn das Wort Bereich erschein, und wenn ein anderer Wert erscheint die Zeile wieder einblendet. Die Werte erechen sich durch Formeln.
MfG
Burghard
14.08.2009 17:12:17
Thread-ID: 1096047
7 Beiträge
Werte in nächste freie Zeile schreiben
Nopummel

Hallo zusammen,
ich möchte Daten aus einer Datei in eine andere kopieren, dabei sollen die Werte in die nächste freie Zeile geschrieben werden. Das Problem dabei ist, dass ich die Daten aus verschiedenen genau gleich aufgebauten Dateien rasukopieren will. D.h Aus Datei A kopiere ich 5 Zeile...
15.09.2009 10:05:34
Thread-ID: 1102849
5 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
2
1
11
7
3
7
6
4
2
2
3
18
2
1
11
5
1
1
8
3
8
2
7