Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zellen nach Zugehörigkeit zu einem bestimmten Monat suchen
zurück: einzelne Zelle aus Rangebereich (Variable) ansprechen weiter: Zeile per Formular löschen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
christian1710
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2010, 11:07
Rufname:

Zellen nach Zugehörigkeit zu einem bestimmten Monat suchen - Zellen nach Zugehörigkeit zu einem bestimmten Monat suchen

Nach oben
       Version: Office 2010

Hallo, liebe Excel-Experten!
Vielleicht kann mir einer bei folgendem Problem helfen:
In der Spalte B habe ich ab Zeile 5 untereinander das Datum vom 1.1.2010 bis zum 31.12.2010 eingetragen. Jetzt bräuchte ich für folgenden Vorgang eine Lösung per VBA:
Wenn man in Spalte B ein Datum markiert, z.B. 20.02.2010, dann bräuchte ich den Wert der ersten Zeile, die das erste Datum des Februars (also 1.2.2010) enthält und die letzte Zeile, die das letzte Datum des Februars (also 28.2. bzw. 29.02.2010) enthält.
Ist das per VBA lösbar?
Für Eure Hilfe schon einmal ganz herzlichen Dank!

Viele Grüße
Christian
pefeu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Sep 2010, 12:00
Rufname: Peter
Wohnort: Hamburg


AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Hallo Christian,

eine mögliche Lösung - wenn die Datum immer aufsteigend sortiert vorliegen
Code:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim iMonat  As Integer
Dim lLetzte As Long
Dim lZeile  As Long
Dim lStrt   As Long
Dim lEnde   As Long

   If Target.Column <> 2 Then Exit Sub
   If Target.Count > 1 Then Exit Sub
   
   lLetzte = Cells(Rows.Count, 2).End(xlUp).Row
   
   If IsDate(Target.Value) Then
      iMonat = Month(CDate(Target.Value))
      For lZeile = 5 To lLetzte
         If iMonat = Month(CDate(Range("B" & lZeile).Value)) Then
            lStrt = lZeile
            Exit For
         End If
      Next lZeile
      For lZeile = lStrt To lLetzte
         If lZeile = lLetzte Then
            lEnde = lZeile
            Exit For
         ElseIf iMonat < Month(CDate(Range("B" & lZeile).Value)) Then
            lEnde = lZeile - 1
            Exit For
         End If
      Next lZeile
   End If
   
   MsgBox "Die erste Zeile ist  " & lStrt & "  die letzte Zeile ist  " & lEnde & ".", _
      64, "   Hinweis für " & Application.UserName

End Sub


Das Makro gehört in das betreffende Tabellenblatt
Rechtsklick auf den Tabellenblattreiter
Linksklick auf Code anzeigen
Das Makro in da sich öffnede Fenster kopieren
Mit Schließen-Kreuz oben rechts wieder zurückgehen
und testen

Gruß Peter
domrum
Besserwisser


Verfasst am:
25. Sep 2010, 12:26
Rufname: Dominik

AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Hallo,

und hier noch ne Variante:

Code:
Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim intTag As Integer, lngZeile As Long
    Dim intMonat As Integer
   
    ' Überprüfe ob Zelleninhalt Datum ist:
    If IsDate(ActiveCell) = False Then
        Exit Sub
    End If

    intMonat = Month(ActiveCell.Value)
    intTag = Day(ActiveCell.Value)
    lngZeile = ActiveCell.Row 'Ausgehend von Daten aufsteigend in einer Spalte
   
    Select Case intMonat
        Case 1, 3, 5, 7, 8, 10, 12
            Debug.Print "Monat " & intMonat & " hat 31 Tage"
            MsgBox ("Erste Zeile: " & lngZeile - intTag + 1 & " Letze Zeile: " & lngZeile + 31 - intTag)
        Case 4, 6, 9, 11
            Debug.Print "Monat " & intMonat & " hat 30 Tage"
            MsgBox ("Erste Zeile: " & lngZeile - intTag + 1 & " Letze Zeile: " & lngZeile + 30 - intTag)
        Case 2
            Debug.Print "Monat " & intMonat & " hat 28 oder 29 Tage"
            MsgBox ("Erste Zeile: " & lngZeile - intTag + 1 & " Letze Zeile: " & lngZeile + 28 - intTag)
            'Fallunterscheidung nach Schaltjahr notwendig bzgl. 29 Tage!!!
        Case Else
            Exit Sub
    End Select
End Sub

_________________
MfG Dominik
Phelan XLPH
Fortgeschritten


Verfasst am:
25. Sep 2010, 12:32
Rufname: Phelan

AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Hallo,

aller guten Dinge sind 3.

ins Codefenster der Tabelle:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim von As Date, bis As Date
    Dim rngVon As Range, rngBis As Range
    If Not Intersect(Target, Range("B:B")) Is Nothing And _
    Target.Count = 1 And Target.Row > 4 Then
        If IsDate(Target) Then
            von = DateSerial(Year(Target), Month(Target), 1)
            bis = DateSerial(Year(Target), Month(Target) + 1, 0)
            Set rngVon = Range("B:B").Find(von, , xlValues, xlWhole)
            Set rngBis = Range("B:B").Find(bis, , xlValues, xlWhole)
            If Not rngVon Is Nothing And Not rngBis Is Nothing Then
                MsgBox "a) " & rngVon.Offset(, -1) & "  b) " & rngBis.Offset(, -1)
            End If
        End If
    End If
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
pefeu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2010, 15:15
Rufname: Peter
Wohnort: Hamburg


AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Hallo Glücksritter,

hast Du evtl. .Address hinter Deinem Offser(, 0) vergessen?

Code:
If Not rngVon Is Nothing And Not rngBis Is Nothing Then
                MsgBox "a) " & rngVon.Offset.Address(0, 0) & _
                       "  b) " & rngBis.Address(0, 0)


Gruß Peter
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Sep 2010, 15:56
Rufname: Phelan

AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

ÄÄhmm nö, ich denk er möchte den Wert aus der SpalteA haben.
Hab das mal so interpretiert.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
pefeu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
26. Sep 2010, 20:26
Rufname: Peter
Wohnort: Hamburg

AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Hallo Glücksritter,

Das mit der Spalte A ist ja nur eine "Geschmacksfrage". Deiner Antwort fehlt aber das .Address.
Die MsgBox in Deiner Antwort sagt: a) b) - keine Spalten-/Zeilennummer.

Gruß Peter
Phelan XLPH
Fortgeschritten


Verfasst am:
26. Sep 2010, 22:02
Rufname: Phelan

AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Ja die Werte Von und Bis aus SpalteA...

...ist doch auch egal.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
christian1710
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Okt 2010, 10:53
Rufname:


AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such - AW: Zellen nach Zugehörigkeit zu einem bestimmten Monat such

Nach oben
       Version: Office 2010

Hallo!
Ganz herzlichen Dank für Eure Hilfe und für Eure Mühen. Ich habe mich für die Variante von Dominik entschieden, da dies für mich in der Gesamtkonzeption als die beste Lösung erschien.

Bitte entschuldigt, dass ich mich erst jetzt melde, aber ich war die letzten Tage durch Krankheit außer Gefecht gesetzt.

Nochmals ganz herzlichen Dank für Eure Hilfe.

Viele Grüße
Christian
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: summewenn (nur zellen mit bestimmter Hintergrundfarbe) 28 benjai 54061 12. Jul 2013, 16:03
Thomas Ramel summewenn  (nur zellen mit bestimmter Hintergrundfarbe)
Keine neuen Beiträge Excel Formeln: Zellen zusammen fügen 4 Gast 9501 17. Aug 2006, 17:11
< Peter > Zellen zusammen fügen
Keine neuen Beiträge Excel Formeln: 2 oder mehr zellen verbinden, nicht VERKETTEN mit & 5 ALEKS 3246 28. Okt 2004, 10:55
Aleks 2 oder mehr zellen verbinden, nicht VERKETTEN mit &
Keine neuen Beiträge Excel Formeln: Gelbe Zellen zählen! 6 Axis_Sonnenflieger 4453 27. Okt 2004, 14:50
Axis_Sonnenflieger Gelbe Zellen zählen!
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Gleich Zellen farblich markieren 3 badoldman 2712 05. Okt 2004, 16:14
fl618 Gleich Zellen farblich markieren
Keine neuen Beiträge Excel Formeln: Gruppieren v. bestimmten Spalten/Zellen 1 Gast 4713 21. Sep 2004, 16:41
fl618 Gruppieren v. bestimmten Spalten/Zellen
Keine neuen Beiträge Excel Formeln: Wert in einem Bereich suchen. 5 khummel 16979 16. Sep 2004, 19:54
khummel Wert in einem Bereich suchen.
Keine neuen Beiträge Excel Formeln: Zellen mit Formeln ausfüllen 22 akm1978 4502 26. Aug 2004, 17:33
akm1978 Zellen mit Formeln ausfüllen
Keine neuen Beiträge Excel Formeln: Zelle mit 3-stelliger Zahl separieren in 3 Zellen 2 MarkusMarkus 2486 18. Aug 2004, 11:31
MarkusMarkus Zelle mit 3-stelliger Zahl separieren in 3 Zellen
Keine neuen Beiträge Excel Formeln: Zellen verknüpfen 2 lochohneboden 1994 22. Jul 2004, 12:35
lochohneboden Zellen verknüpfen
Keine neuen Beiträge Excel Formeln: Rang bezogen auf leere oder negative Zellen 3 Gast 937 21. Jul 2004, 10:43
Gast Rang bezogen auf leere oder negative Zellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln