Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum automatisch einfügen

Datum automatisch einfügen
22.10.2005 22:29:06
Manuel
Hallo zusammen,
ich habe mal eine Frage an die erfahrenen unter euch. Ist es irgendwie möglich um auf dem hinzugefügten Formular ein Modul für den Button "Neuer Monat" zu erstellen, welches neben dem Monat, welchen ich mit Müh und Not programmiert habe, die Tagesdaten ebenfalls automatisch in die dafür vorgesehene Spalte geschrieben wird. Es sollte auch möglch sein, wenn ich zum Beispiel am 3. Oktober den Button drücke, dass er automatishc in der Zelle B5 mit dem ersten Startet und durchdatiert bis zum 30. oder 31. des Monates. Je nach dem. Wäre auch gut wenn die Wochenenden rot markiert werden. Sind ja Ruhetage. Ich wäre echt dankbar für jeden Tip den Ihr mir geben könnt.
Mit freundlcihen Grüssen
M. Miklo
Hier der Link zu mienem Stundenblatt
https://www.herber.de/bbs/user/27727.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Datum automatisch einfügen
23.10.2005 00:52:08
Herbert
hallo Miklo,
so könnte es gehen:


Option Explicit
Public Sub monat_erst()
Dim e As Date, i As Byte, y%
Dim wt As Byte, m As Byte
m = Month(Date)
y = Year(Date)
With ActiveSheet
      .[b5:b35].Interior.ColorIndex = xlNone
       e = 1 & "." & m & "." & y
      .[b5] = e
        
For i = 5 To 35
    wt = Weekday(.Cells(i, 2))
    If wt = 7 Or wt = 1 Then
       .Cells(i, 2).Interior.ColorIndex = 3
    End If
    .Cells(i + 1, 2) = .Cells(i, 2) + 1
Next
Select Case m
    Case Is = 2
        .[b33:b36].ClearContents
    Case 4, 6, 9, 11
        .[b35:b36].ClearContents
    Case Else
        .[b36].ClearContents
End Select
End With
End Sub

     gruß Herbert
Anzeige
AW: Datum automatisch einfügen
23.10.2005 08:47:27
Manuel
Hallo Herbert,
danke vielmals für die sofortige Hilfe zu miener Frage. Ganau diese ANwendung habe ich gesucht.
PS: Beste Excel-Forum Page im Net!!
Gruss
M. Miklo
AW: Datum automatisch einfügen
23.10.2005 08:59:17
Manuel
Hallo zusammen,
Ist es irgendwie möglich, die Zeile zu markieren in der das heutige Datum steht, wenn das Datumsformat einfach "d" ist.Das Datum vom 1. bis zum 31. steht jeweils in "B5:B35". Ich wäre echt dankbar für jede Hilfe.
Gruss
M. Miklo
Hier der Link zu meinem File.
https://www.herber.de/bbs/user/27727.xls
AW: Datumszeile Selektieren
23.10.2005 10:42:15
Herbert
Hallo Manuel,
ich gehe davon aus,daß du die Zelle neben dem
aktuellen Datum Selektieren willst...
'in "Diese Arbeitsmappe":

Private Sub Workbook_Open()
Dim c As Range
With Sheets("Stundenblatt")
If ActiveSheet.Name <> "Stundenblatt" Then .Activate
Set c = .Range("b5:b35").Find(Date)
End With
If Not c Is Nothing Then c.Offset(0, 1).Select
End Sub

gruß Herbert
Anzeige
AW: Datumszeile Selektieren
24.10.2005 23:44:51
Manuel
Danke vielmal Herbert. Ich konnte jedoch mein Problem in einer ähnlichen Form durch tüfteln doch noch lösen. Aber danke jedoch trotzdem für deine Hilfsbereitschaft.
Mit freundlichen Grüssen
M. Miklo

130 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Datum automatisch einstellen
Timmy

Liebe Excler,
wie kann ich in meinem Worksheet das Datum automatisch einstellen lassen, sodass es sich von selbst aktualisiert sobald ich das Sheet oeffne, oder beginne zu erarbeiten?
Vielen Dank und liebe Gruesse
Timmy
16.02.2009 16:05:00
Thread-ID: 1051200
3 Beiträge
Automatisches Datum in der Zelle
Schindlbeck62

Hallo Excel Speziallisten,
ich habe eine Liste für die Terminverfolgung erstellt, jetzt möchte ich, wenn die Aufgabe erledigt ist. das ich z. B. in die Zelle D4 ja schreibe sich in die Zelle D5 das Heutige Datum automatisch einträgt aber nicht mehr aktualisiert wenn ich es an an...
27.03.2009 11:04:10
Thread-ID: 1064527
9 Beiträge
Anzeige
Automatisches Aktualisieren beim Öffnen
svenja

Hallo,
habe in einer Exceldatei Daten aus einer Access-Datenbank verknüpft. Die Daten sollen beim Öffnen der Excel-Datei automatisch aktualisiert werden. Habe das entsprechende Häkchen bei "Datenbereichseigenschaften" gesetzt. Es handelt sich hier um eine Excel-Datei mit insgesamt 13 Tabell...
23.07.2009 01:40:16
Thread-ID: 1090320
2 Beiträge
Datum nicht Aktualisieren
René

Hallo
Ich hätte da mal ein Frage
Gibt es eine möglichkeit wenn man in die Zelle (A2) etwas hineinschreibt in die Zelle (B2) das aktuelle Datum mit Uhrzeit steht?
Ich hätte die Formel: =wenn(A2="";"";jetzt())
Das Problem dabei ist, dass sich das Datum dabei immer Aktualisiert. Gi...
25.07.2009 18:19:57
Thread-ID: 1091274
2 Beiträge
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Makro automatisch bei Zellenänderung ausführen
Michael

Hallo,
für eine Tabelle nutze ich folgendes Makro: Sub einfärben() For Each Cell In Range("H5:AH16") If Cell = "SE" Then Cell.Interior.ColorIndex = 3 Cell.Font.ColorIndex = 3 End If If Cell = "TW" Then Cell.Interior.ColorIndex = 4 Cell.Font.ColorIndex = 4 End If If Cell = "BS" Then Cell.In...
16.03.2010 10:59:21
Thread-ID: 1146150
15 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
1
3
2
8
7
1
1
1
2
14
9
2
1
9
4
7
2
3
2
1
9
6
6
5
1