Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen nach aktueller kalenderwoche

Suchen nach aktueller kalenderwoche
18.07.2019 09:04:33
stormlamp
Hallo Zusammen,
mit diesem Script suche ich in Zeile 1 den Wert "5":
Rows("1:1").Select
Selection.Find(What:="5", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Wie muss der Code aussehen, wenn ich statt der "5" die aktuelle Kalenderwoche, also "Kalenderwoche(heute();21)" suchen möchte?
Viele Grüße
Hans

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen nach aktueller kalenderwoche
18.07.2019 09:12:58
Nepumuk
Hallo Hans,
versuch es mal so:
Public Sub Test()
Dim objCell As Range
Dim lngKW As Long
lngKW = WorksheetFunction.WeekNum(Date, 21)
Set objCell = Rows(1).Find(What:=lngKW, LookIn:=xlValues, LookAt:=xlPart)
If Not objCell Is Nothing Then
Application.Goto objCell
Else
MsgBox "KW nicht gefunden.", vbExclamation, "Hinweis"
End If
End Sub

Gruß
Nepumuk
AW: Suchen nach aktueller kalenderwoche
18.07.2019 09:22:33
stormlamp
Hallo Nepomuk,
danke, ich habe dann lieber Deine Ausführung genommen, weil darin auch die landesspezifische kalenderwochenbestimmung ist.
Viele Grüße
Hans
AW: Suchen nach aktueller kalenderwoche
18.07.2019 09:17:08
stormlamp
Hallo,
ich habe die Lösung jetzt gefunden:

kw = Format(Date, "ww")
Rows("1:1").Select
Selection.Find(What:=kw, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Viele Grüße
Hans
Anzeige

63 Forumthreads zu ähnlichen Themen

VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Anzeige
aktuelle Kalenderwoche umrahmen
Martin

Hallo liebe Gemeinde,
Ich habe eine Excel Datei, in welcher von "B7" bis "DT7" die Kalenderwochen für das Jahr 2011 & 2012 eingetragen sind. Ich würde gern mittels VBA die aktuelle aktuelle Kalenderwoche erfassen und dann einen fetten roten Rahmen um die komplette Spalte legen.
Dies...
30.08.2011 17:15:00
Thread-ID: 1228071
4 Beiträge
Kalenderwochenspalte farbig markieren
Lisa

Hallo,
wie schaffe ich es, dass eine Spalte markiert wird, in welcher sich die aktuelle Kalenderwoche befindet ? Bis jetzt wurde nur die Kalenderwochenzelle (leider in 2013 und 2014) markiert.
Die Kalenderwochen sind auch nur manuell eingegeben und unterliegen keiner Formatierung.
...
20.11.2013 09:48:51
Thread-ID: 1339330
10 Beiträge
Anzeige
Kalender mit KW und Datum
Johannes

Guten Morgen,
Ich hoffe ihr könnt mir bei meinem Problem helfen:
Ich wollte mir einen Jahreskalender erstellen der mir die KW anzeigt.
Das habe ich auch so hinbekommen.
Ist es aber möglich in eine Zelle ein Datumsbereich zu schreiben.
Also bei mir in J7 steht KW 4 und in der...
06.10.2016 08:58:14
Thread-ID: 1518276
7 Beiträge
Bedingte Formatierung von Zeilen pro Kalenderwoche
Zeilen

Hallo,
ich habe ein Tabelle1 die eigentlich Werte aus der TabelleX abfragt.
Für das Beispiel habe ich die Werte in die Tabelle 1 eingefügt (Werte aus TabelleX).
Diese Werte möchte ich in eine Ergebnistabelle übergeben.
Mein Problem dabei, die Formatierung der Ergebnistabelle pr...
23.03.2017 13:27:20
Thread-ID: 1549024
4 Beiträge
aktuelle Kalenderwoche
Nadine

Hallo ihr Lieben,
ich hab ein kleines Excel-Problem.
Meine Tabelle ist wie folgt aufgebaut:
- in Spalte C stehen Namen
- in Zeile 9 die Kalenderwochen des Jahres.
- und dazwischen Arbeitsstunden, die jeder MA pro Woche gearbeitet hat oder arbeiten wird
Mein Problem:
...
16.06.2017 09:18:32
Thread-ID: 1564374
7 Beiträge
Kalender mit KW Quer Dynamisch
MaBlu

Hallo
ich möchte eine Liste mit Kalender im Querformat mit Wochenzahlen und Beschriftung der Monate Dynamisch erstellen habe aber keinen schimmer wie, kann mir hier jemand eine Vorlage erstellen ?
Die genaue Vorstellung habe ich als EXCEL File Graphisch erstellt nun möchte ich das gaze...
20.02.2018 22:42:55
Thread-ID: 1610158
11 Beiträge
aktuelle Woche markieren
Berndt

Halllo zusammen,
in Spalte A stehen bei mir ganz viele Daten (Format tt.mm.jjjj).
ich hätte gerne eine bedingte Formatierung, welche mir die Daten der aktuellen Woche markiert (also in dem Falle vom 23.04.2018 bis 29.04.2018).
Könnt ihr mir mit einer Formel behilflich sein?
viel...
25.04.2018 08:17:36
Thread-ID: 1621376
5 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
2
3
9
6
6
3
6
10
4
4
1
2
5
6
7
5
4
4
2
2
2
17
6
3