Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Freie Zeile ermitteln und aktuelles Datum eintagen

Freie Zeile ermitteln und aktuelles Datum eintagen
26.08.2006 19:34:32
Mark
Hallo,
ich möchte bei jedem öffnen einer xls-Datei, dass in die nächste freie Zeile unterhalb von Zelle "A9", dass aktuelle Datum geschrieben wird. Wie kann ich das machen?
Gruß
-Mark-

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Freie Zeile ermitteln und aktuelles Datum eint
26.08.2006 19:51:00
Reinhard
Hi Mark,
Alt+F11, Doppelklick auf "DieseArbeitsmappe", Code einfügen, Editor schiessen.
Option Explicit
Private Sub Workbook_Open()
Dim Zei As Long
With Worksheets("Tabelle1")
Zei = .Range("A65536").End(xlUp).Row + 1
If Zei > 65536 Then
MsgBox "Spalte A ist voll"
Exit Sub
End If
If Zei < 10 Then Zei = 10
.Range("A" & Zei) = Date
End With
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
S KLAPPT
26.08.2006 19:53:59
Mark
Danke
NE KLAPPT NICHT
26.08.2006 19:59:56
Mark
Eine kleine Nachbesserung noch.
Die Schleife soll ermitteln, welche Zelle unterhalb der Zelle "A9" frei ist, und da soll dann das aktuelle Datum eingetragen werden.
Ablauf:
1. Erste freie Zelle unterhalb von A9 ermitteln
2. In diese Zelle das akt. Datum schreiben
Schöne Grüße
-Mark-
Anzeige
AW: Freie Zeile ermitteln und aktuelles Datum eintagen
26.08.2006 21:47:50
Peter
Hallo Mark,
versuch einmal die beigefügte Version:

Private Sub Workbook_Open()
Dim WkSh       As Worksheet
Dim lZeile     As Long
Dim bGefunden  As Boolean
Set WkSh = Worksheets("Tabelle1") ' Blattnamen ggf. anpassen !!!
For lZeile = 10 To 65536
If Trim(WkSh.Cells(lZeile, 1).Value) = "" Then
bGefunden = True
Exit For
End If
Next lZeile
If bGefunden = True Then
WkSh.Cells(lZeile, 1).Value = Date
Else
MsgBox "       Die Spalte A ist randvoll," & Chr(10) & _
"es kann kein Datum eingefügt werden.", _
48, "   Hinweis für " & Application.UserName
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
OK - Vielen Dank
28.08.2006 19:38:12
Mark
Hallo Peter,
Sorry für späte Rückmeldung.
Klappt jetzt!
-Mark-

305 Forumthreads zu ähnlichen Themen

Erstellungsdatum bzw. Änderungsdatum in Zelle
di

Hi Forum!
ich habe eine Tabelle mit Adressen (Liste) und möchte gerne beim hinzufügen eines neuen Datensatz beziehungsweise bei Änderung, das aktuelle Datum mit Uhrzeit und Benutzername automatisch in die vordefinierte Zelle eintragen lassen.
Beispiel:
RegistriertAm RegistriertVon G...
01.09.2008 13:22:00
Thread-ID: 1006414
10 Beiträge
Anzeige
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Aktuelles Datum in Registerkarte
Herbert

Hallo Expert,
meine Datei hat mehrere Registerkarten. "Summe";"Netto";"Brutto". Ich möchte nach dem eigentlichen Titel der einzelnen Registerkarte das Tagesdatum in der Form JJJJMMTT ausgegeben haben. z.B. "Summe_20081021".
Nach dem Öffnen der Datei am morgigen Tag sollte dann natürlich...
21.10.2008 14:29:41
Thread-ID: 1018005
16 Beiträge
Anzeige
Summe von bis, abhängig vom Datum in Zelle C4
bis,

Vielen Dank für eure Hilfe, Beispieldatei ist hier zu finden https://www.herber.de/bbs/user/56782.xls
Hallo liebe Helfer,
ich habe ein Tabellenblatt, mit mehreren Zeilen als im Beispiel angegeben, mit IST-Werten (Monat schon kummuliert) und ein Tabellenblatt mit den PLAN-Werten für jede...
14.11.2008 11:30:00
Thread-ID: 1024502
7 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Datum automatisch in andere Zelle kopieren
ThomasB

Hallo,
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetr...
15.01.2009 14:00:41
Thread-ID: 1040123
4 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
Anzeige

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