Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufende Nummer ohne Makro?

Laufende Nummer ohne Makro?
15.07.2003 12:33:35
Jean-Pierre
hallo zusammen,
wie kann ich in spalte a (ab a4) eine fortlaufende nummerierung erzeugen - jedoch ohne formel?
in etwa so (=WENN(B4>0;A4+1;"") jedoch in vba da ich ich bereits ein makro habe welches leerzeilen prüft!
steht jedoch eine formel in der zelle dann ignoriert es das makro! :(
das makro sieht so aus:

 Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$S" & Range("A65536").End(xlUp).Row
End Sub
weiss jemand rat?
gruß aus berlin
jean-pierre

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufende Nummer ohne Makro?
15.07.2003 15:15:46
Mac4
Hallo Jean-Pierre,
dann müsste es so gehen:

Sub test()
Dim lfdNr
lfdNr = 1
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value > 0 Then
Cells(i, 1).Value = lfdNr
lfdNr = lfdNr + 1
End If
Next
End Sub

Das Makro beginnt die Überprüfung, ob in der Spalte Werte > 0 stehen, ab der Zeile 4 und schreibt bei zutreffender Bedingung in die entsprechende Zelle in Spalte A die fortlaufende Nummer (beginnend mit 1)!
Kopier Dir das Makro in die Tabelle (Rechtsklick auf den Tabellenreiter (zb. Tabelle1) und Code einfügen)
Marc

Anzeige
AW: Laufende Nummer ohne Makro?
15.07.2003 16:25:52
Jean-Pierre
hallo marc,
das klappt leider nicht. da muckt sich garnix.
ich bin direkt in das arbeitsblatt reingegangen und habe mit rechtsklick auf code einfügen geklickt.
und wenn ich alles speichere, schliesse und neu aufrufe und dann in b4 einen wert eintrage passiert nix in a4 !?!
wo liegt der fehler?
gruß
jean-pierre

AW: Laufende Nummer ohne Makro?
16.07.2003 07:57:56
WernerB.
Hallo Jean-Pierre,
das Makro von Marc habe ich entsprechend modifiziert, so dass es jetzt Deinen Wünschen entsprechen sollte. Leider hattest Du vorher nie geschrieben, dass das Makro selbsttätig ("ereignisgesteuert")auf jede Änderung in der Spalte B reagieren soll; dies ist aber jetzt der Fall.
Das Makro gehört in das Klassenmodul des entsprechenden Tabellenblattes.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lfdNr As Long, i As Long
If Intersect(Target, Range("B4:B65536")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
lfdNr = 1
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value <> "" Then
Cells(i, 1).Value = lfdNr
lfdNr = lfdNr + 1
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

Anzeige
Danke!!!!!!!!!!!!!!!!!!
17.07.2003 15:10:38
Jean-Pierre
hallo werner,
vielen dank an euch. so klappts auch mit dem, äääähm, achja excel. *gg
tschöö und grüße aus berlin-tempelhof
jean-pierre

AW: Laufende Nummer ohne Makro?
15.07.2003 14:03:12
Mac4
Hallo Jean-Pierre,
ich bin mir jetzt nicht so sicher, ob ich Dich richtig verstanden habe.
Folgendes Makro generiert in Spalte A eine ldf. Nummer unter der Voraussetzung, dass die entsprechende Zelle in Spalte B <> leer ist.
Ggf. musst Du es anpassen.

Sub test()
Dim lfdNr
lfdNr = 1
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value <> "" Then
Cells(i, 1).Value = lfdNr
lfdNr = lfdNr + 1
End If
Next
End Sub

Marc

Anzeige
AW: Laufende Nummer ohne Makro?
15.07.2003 14:56:40
Jean-Pierre
hallo marc,
du hast recht ich hab noch etwas vergessen zu schreiben. sorry.
in spalte a (4,5,6 etc) soll dann eine lfd-nr. rein wenn in der nebenstehenden zelle b
(4,5,6 etc) etwas drinsteht
(z.b. wenn b4>0 dann a4=1 sonst ""; wenn b5>0 dann a4+1 sonst "") oder so ähnlich.
bin leider nicht so ganz bewandert in vba - dank dir
gruß
jean-pierre

Ergänzung! Natürlich ohne Formel! :)
15.07.2003 13:16:36
Jean-Pierre
hallo zusammen,
ich meinte natürlich ohne formel! sorry
gruß aus berlin
jean-pierre

300 Forumthreads zu ähnlichen Themen

Uhrzeit ohne Doppelpunkt eingeben
Timo

Halllo zusammen,
Ich habe in einer Tabelle in Spalte C,D,E Uhrzeiten stehen mit denen ich auch weiterrechne.
Ich möchte die Uhrzeit ohne Doppelpunkt eingeben und den Doppelpunkt automatisch ausfüllen lassen Dazu habe ich folgenden Code den ich Ihr im Forum gefunden habe im Codebereich d...
03.03.2009 19:57:16
Thread-ID: 1056091
6 Beiträge
Anzeige
Zeiteingabe ohne Doppelpunkt
adi

Hallo,
hier ist jemand der mal wieder eure Hilfe benötigt.
In meiner Exceltabelle in Spalte G und H möchte ich die Uhrzeit
ohne Doppelpunkt z.B. statt 12:00 möchte ich 1200 eingeben.
Kann mir jemand ein Makro schreiben?
Gruß
adi
06.09.2010 19:57:02
Thread-ID: 1176003
6 Beiträge
Datum ohne Uhrzeit berechnen
Basti

Hallo zusammen,
ich habe ein Datum in Excel mit Uhrzeit. Das Format ist wie folgt: "18.01.2012 13:15:00".
Diese Uhrzeit brauche ich bei einigen Berechnungen, daher kann ich sie nicht löschen. Bei einer Formel jedoch soll mir Excel die Differenz in Tagen zu einem anderen Datum ausrechne...
19.11.2012 11:41:28
Thread-ID: 1287252
2 Beiträge
Anzeige
Makro Zeiteingabe ohne Doppelpunkt
Sylvia

Hallo,
mein Makro Zeiteingabe ohne Doppelpunkt spinnt, d.h. ich bekomme immer wieder eine Fehlermeldung, obwohl das Makro scheinbar trotzdem tut was es soll, aber die Fehlermeldung nervt etwas. Habe eine neue Excelversion, kann es damit zusammenhängen und kann mir jemand sagen was muss ich...
29.08.2017 09:33:47
Thread-ID: 1577240
2 Beiträge
Arbeitszeit ohne Doppelpunkt mit sekunden
Werner

Liebe Ecxel Freunde,
ich habe eine Arbeitszeitmappe um den Doppelpunkte zu sparen habe ich einen code. Der Code ist leider nur Umwandlung in Stunden:Minuten ohne Sekunden, siehe unten.
Ich brauche es aber mit ss = hh:mm:ss , da ich keine Ahnung habe von VBA, bitte ich Euch mich zu unte...
10.08.2019 07:31:55
Thread-ID: 1706958
3 Beiträge
Datum ohne Punkte eingeben, mit Punkten ausgeben
Marion

Hallo,
gibt es die Möglichkeit in Excel (egal welche Version) die Datumseingabe z.B. 22112000 einzugeben und 22.11.2000 ausgeben zu lassen, ähnlich wie in Access mit Eingabe und AUsgabeformat.Ich muß für die Bilanz verschiedene Aufstellungen machen und darf ganz viele Datumsfelder ausfüllen...
06.02.2003 17:02:20
Thread-ID: 215161
4 Beiträge
Uhrzeit-Eingabe ohne ":"
Winfried Mommers

Hallo Freaks,

wenn ich eine Zelle mit "hh:mm" formatiere und z.B. nur die Zahl 9 eingebe, damit der Eingeber es möglichst einfach hat, wertet Excel diese Eingabe als "9.1.1900". Gibt es eine Möglichkeit das umzubiegen, d.h. ohne diese (dämliche) Doppelpunkt-Eingabe eine (z.B. ganzzahlig...
31.07.2003 09:28:21
Thread-ID: 287936
3 Beiträge
Datum ohne Uhrzeit ausgeben
Michi
Hi liebe Excel Gemeinde,
wie bekomme ich es hin das Excel XP mir das aktulle Datum in eine Zelle schreibt, aber ohne Uhrzeit dahinter? Heute() und Jetzt() geben beide die Uhrzeit mit aus.
mfg michi
02.11.2003 11:44:40
Thread-ID: 331982
5 Beiträge

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
5
12
5
1
7
1
2
3
2
4
9
7
2
14
5
2
1
6
13
5
6
3
5
4
4