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

Gehe zum Datum, Werte eintragen

Forumthread: Gehe zum Datum, Werte eintragen

Gehe zum Datum, Werte eintragen
07.08.2016 23:37:43
Gerhard E.

Hallo,
in einer Zeile (Jahreskalender) soll ein Datum gefunden werden. Dann sollen unterhalb, in der Datumsspalte, in leeren Zellen jeweils ein Zellwert kopiert/eingetragen werden (siehe Datei).
Über eine Macro-Lösung würde ich mich sehr freuen.
Bis zum Montag...
Gruß
Gerhard E.
https://www.herber.de/bbs/user/107461.xlsm

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Teste mal
08.08.2016 10:44:28
Gerhard E.
Hallo Steffen,
vielen Dank, so ist es sehr gut zu gebrauchen!
Mein zusätzlicher Wunsch: das Makro so anzupassen dass die Eintragungen nicht an Samstagen, Sonntagen oder Feiertagen geschehen. Die Datei ist vorbereitet.
Könntest du diese Anpassung vornehmen?
Viele Grüße
Gerhard E.
https://www.herber.de/bbs/user/107468.xlsm
Anzeige
AW: Teste mal
08.08.2016 11:45:40
baschti007
Hey Ho einfach mal ersetzen
Gruß Basti
Private Sub CommandButton1_Click()
Dim datArea, findDate, setValue, matchDate, out, fillArea
Dim rngFound As Range
findDate = [B4].Text
setValue = [C4].Value
Const startCol = 6
Const startRow = 4
If (Format(findDate, "DDD") = "Sa" Or Format(CDate(findDate), "DDD") = "So") Then GoTo  _
Error1
Set rngFound = ThisWorkbook.Worksheets("Feiertage").Columns("E:E").Find(What:=CDate( _
findDate), LookIn:=xlFormulas, LookAt:=xlWhole)             ' LookIn:=xlFormulas oder LookIn:=xlValues
If Not rngFound Is Nothing Then GoTo Error2
Set datArea = Range(Cells(startRow, startCol).Address).Resize(, Cells(startRow, Columns. _
Count).End(xlToLeft).Column - startCol + 1)
out = Application.Transpose(Application.Transpose(datArea.Value))
matchDate = Application.Match(findDate, out, 0)
If IsNumeric(matchDate) Then
On Error Resume Next
Set fillArea = datArea.Cells(1, matchDate).Resize(300 - startRow, 1).SpecialCells(4)
If Err.Number = 1004 Then MsgBox " Der Bereich vom Datum " & findDate & " enthält keine  _
leeren Zellen mehr", vbInformation: Exit Sub
fillArea.Value = setValue
Else
MsgBox "Datum " & findDate & " wurde nicht gefunden.", vbInformation
End If
Exit Sub
Error1:
MsgBox "Kann nicht am Wochenende ausgeführt werden"
Exit Sub
Error2:
MsgBox "Kann nicht an Feiertagen ausgeführt werden"
Exit Sub
End Sub

Anzeige
Danke!
08.08.2016 14:20:54
Gerhard E.
Hallo Basti,
passt so!
Vielen Dank.
Gerhard E.
Bitte =)
08.08.2016 14:55:33
baschti007
Danke auch an Steffen!
08.08.2016 15:43:39
Gerhard E.
Gruß
Gerhard

Anzeige
;

Forumthreads zu verwandten Themen

Aufzeitstrahl das heutige Datum markieren, wie?
stefan

hallo,
ich habe in einer Zeile alle Datümer ds jahres 2009 eingetragen. Darunter steht jeweils ein Wert.
Ist es möglich, nach dem Öffnen er Datei, den Fokus auf die Zelle mit dem heutigen Datum zu legen?
Bsp:
01.02.2009 02.02.2009 03.02.2009
1000...
23.12.2008 12:06:00
Thread-ID: 1034970
11 Beiträge
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Anzeige
Auf Datum mit Uhrzeit springen
Rainer

Hallo,
in meinem Excel Tabellenblatt befindet sich in der Spalte A jeweils fortlaufend das Datum mit einer Uhrzeit (30 Minuten Aufteilung).
Beispiel:
27.10.09 11:00
27.10.09 11:30
27.10.09 12:00 usw.
Da die Tabelle im Laufe der Zeit sehr lang wird, würde ich beim Öffnen...
27.10.2009 12:09:25
Thread-ID: 1112458
4 Beiträge
Rechnen mit folgendem Datumsformat
Maris

Hallo,
ist es möglich mit diesem Datumsformat zu rechnen?
Monat/Tag/Jahr also bspw.
07/04/2010
+ 7
= 07/11/2010
Gruß,
Maris
25.10.2010 16:34:23
Thread-ID: 1183795
12 Beiträge
Anzeige
zum Datum springen
Andi

Hallo,
zu meinem Problem habe ich im Archiv mehrere ähnliche Fragen und auch Antworten gefunden. Allerdings gelingt es mir nicht die Formeln oder Codes entsprechend zu ändern.
Mein Problem:
Es existiert eine Excel-TAbelle mit Reitern "Januar 2010", "Februar 2010" usw bis Dezember....
29.10.2010 14:38:05
Thread-ID: 1184438
3 Beiträge
Zur Zelle mit Datum springen
JN

Hallo, ich benötige folgendes Makro:
In Spalte A befinden sich Datumswerte. In Zelle B1 geben ich ein Datum ein und möchte dann per Schaltfläche zum gleichen Datum springen (Zelle aktivieren), welches sich irgendwo in Spalte 1 befindet.
Danke und Grüße
JN
16.03.2011 13:10:10
Thread-ID: 1205966
3 Beiträge
Aktuelles Datum bei mehreren Blättern anspringen
Heiko

Hallo,
ich möchte ein Stundenbuch anfertigen. Für jede Kalenderwoche ein eigenes Blatt zb. Kw12, Kw13 usw.
Um beim öffnen immer das aktuelle Datum anzuspringen, hab ich volgendes Makro verwendet:
Sub auto_open() spalte = "A" datum = Date On Error Resume Next zeile = Columns(spalte...
27.03.2012 18:05:59
Thread-ID: 1256704
4 Beiträge
Anzeige
automatisch zur Zelle mit heutigem Datum springen
bene

Ich habe einen Jahreskalender in Excel. Die Monate sind zeilenweise untereinander angeordnet und in jeder Zelle steht das Datum des jeweiligen Tages. In der Zeile darunter soll für jeden Tag ein Eintrag gemacht werden. Damit man sofort beim Öffnen der Datei auf der tagesaktuellen Zelle steht, s...
20.06.2002 14:46:06
Thread-ID: 130191
3 Beiträge
Zum aktuellen Tabellenblatt springen
Tim

Hallo,
ich habe hier eine Exceltabelle in jeweils für 3 KW aufgetiele Tabellenblätter.
Z.b. kw 40-42 , kw 43-45 etc.
Jetzt will ich mittels VBA, dass er wenn man die Tabelle öffnet in die aktuelle KW springt. Ist das möglich?
Hier die Tabelle:
https://www.herber.de/bbs/user/...
17.06.2013 07:51:11
Thread-ID: 1317992
3 Beiträge
Anzeige
gehe zu erstem Datum, des akt. Monats in Spalte
vat

Hallo zusammen,
ich möchte gern in Spalte C18:C100 nach dem ersten Datum des aktuellen Monats suchen und in diese Zelle springen. Bzw. wäre es schön, wenn diese Zelle ganz oben links im Programmfenster wäre.
In den Zellen steht ein Datum, welches als „Jahr“ (JJJJ) formatiert ist.
M...
21.08.2013 13:26:55
Thread-ID: 1327821
3 Beiträge
Werte mit dem aktuellsten Datum zusammenfassen
Timo

Hallo liebes Forum,
ich habe eine Excel-Liste mit zahlreichen Zeileneinträgen.
In einer der Spalten wird das Datum der letzten Änderung angegeben.
Ich möchte nun in einer weiteren Tabelle die TOP 5 der aktuellsten Einträge (nach Änderungsdatum) mitsamt den dazugehörigen Werten an...
27.02.2014 13:01:23
Thread-ID: 1351452
8 Beiträge
Zum aktuellen Datum Springen
Bernd
Hallo liebe Excelgemeinde,
ich suche einen Code der folgendes leistet:
In Spalte A ab A6 stehen untereinander die Daten des gesamtes Jahres.
Um mir das scrollen zu erleichtern, möchte ich einen Button anklicken, der in der Spalte I die Zelle auf Höhe des Datums in Spalte A springt.
...
30.06.2014 14:06:41
Thread-ID: 1368180
5 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