Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1484to1488
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
Inhaltsverzeichnis

Datumbereich mittels vba auswählen

Datumbereich mittels vba auswählen
26.03.2016 09:39:58
Torsten
Hallo zusammen,
ich möchte gerne dem Nutzer meiner Tabelle anbieten einen Monat auszuwählen.
Nach der Auswahl soll der Bereich vom 01.des Monats bis zum letzten Tag des Monats markiert werden.
In Cells(3, 31) steht z.B.: "03" für März
In Cells(3, 27) steht z.B.: "2017"
Nun soll der gesamte März in 2017 markiert werden.
Ich denke mir vom Code her sollte der Ablauf so sein:
-Suche in Spalte C den 01.03.2017
-Merke dir diesen Tag
-gehe jetzt zum letzten Tag des Monats (nächst höhere Monat -1)
-Merke dir auch diesen Tag
-Nun markiere den Bereich zwischen den zwei gemerketen Tagen.
...ach wenn das alles so einfach wäre
Ich müsste mit zwei Schleifen gleichzeitig arbeiten, aber wie?!
(Die eine für den Monatsanfang und die Andere für das Monatsende)
Hier mein jetziger Code, welche nurn den 01. des Monats eines Jahres wählt:
Sub sucheMonatprobe()
Dim i As Integer
Dim suchspalte As String
suchspalte = "c"
For i = 1 To Daten.UsedRange.Rows.Count
If Range(suchspalte & i).Text = "01." & Cells(3, 31) & "." & Cells(3, 27) Then
Range(Cells(i, suchspalte), Cells(i + 30, suchspalte)).Select
MsgBox "Jahr in " & Cells(i, suchspalte) & " gefunden"
Exit Sub
End If
Next
MsgBox "Jahr wurde nicht gefunden"
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumbereich mittels vba auswählen
26.03.2016 09:51:37
Peter
Hallo Torsten,
du solltest eine Beispiel-Datei hochladen, denn aus deiner Beschreibung geht nicht hervor, wie die Zeile 3 aufgebaut ist, bzw. wie nach einem Monat gesucht werden könnte.
Gruß Peter

AW: Datumbereich mittels vba auswählen
26.03.2016 10:00:15
Fennek
Hallo Torsten,
mit deinem Ansatz habe ich ziemliche Probleme. Sind deine Plural(Datum) als Excel-Datum gespeichert, oder als Texte?
Ich hatte erwartet,'dass du als erstes Monat und Jahr in ein gültiges Datums-Format umwandels.
Die Suche über usedrange kann man besser machen, z.b. application.match(cdbl(Datum)), aber nur, falls es'wirklich ein xl-Datum ist.
Mfg

Anzeige
AW: Datumbereich mittels vba auswählen
26.03.2016 10:07:11
Hajo_Zi
match geht aber nur über eine Spalte oder Zeile.

AW: Datumbereich mittels vba auswählen
26.03.2016 10:24:52
Torsten
Die Fortlaufenden Datum(s) Plural sind als Datum gespeichert/formatiert.
Mit meinem Code findet er auch das Datum.
Jedoch nur nicht den Bereich.

AW: Datumbereich mittels vba auswählen
26.03.2016 11:04:19
Gerd
Hallo Torsten!
Sub sucheMonatprobe()
Dim suchspalte As String
Dim lngDate As Long, lngDate2 As Long, lngErste As Long, lngLetzte As Long
suchspalte = "c"
On Error GoTo errEnde
lngDate = CLng(CDate("01." & Cells(3, 31) & "." & Cells(3, 27)))
lngDate2 = DateSerial(Year(lngDate), Month(lngDate) + 1, 0)
lngErste = Application.Match(lngDate, Columns(suchspalte), 0)
lngLetzte = Application.Match(lngDate2, Columns(suchspalte), 0)
Cells(lngErste, suchspalte).Resize(lngLetzte - lngErste + 1).Select
Exit Sub
errEnde:
Err.Clear
MsgBox "Fehler"
End Sub

Gruß Gerd

Anzeige
AW: Datumbereich mittels vba auswählen
26.03.2016 11:56:00
Torsten
Danke Gerd!
So Klappt es

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige