Thema Datum  Von Nutzer Rating
Antwort
18.02.2024 20:04:23 Till
NotSolved
Blau Datum/Intervall-Zellen füllen
 19.02.2024 00:29:21 ralf_b
Solved
19.02.2024 12:23:31 Till
NotSolved
19.02.2024 12:58:51 Gast10462
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
19.02.2024 00:29:21		 Views:
115		 Rating:
     
Antwort:
 Nein
Thema:
Datum/Intervall-Zellen füllen

das Makro in das Codemodul von der betreffenden Tabelle einfügen. es darf nicht umbenannt werden aber die zellbereiche solltest du an die realen Bedingungen anpassen es startet automatisch wenn in der Spalte mit den Intervallen eine Zelländerung passiert. Zelle leer = Zeile leer

Private Sub Worksheet_Change(ByVal Target As Range)
  
    Dim bolhj As Boolean
    Dim dtDatum As Date
    Dim interv As Double, lastcol&, i&
    Dim res
    Dim strHJ As String
   
    If Not Intersect(Range("C2:C4"), Target) Is Nothing Then
        interv = Target.Value
        lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
        Application.EnableEvents = False
        If interv > 0 Then
           
            dtDatum = Target.Offset(0, -1).Value
            If Month(dtDatum) <= 6 Then
                strHJ = "1.Halbjahr " & Year(dtDatum)
            Else
                strHJ = "2.Halbjahr " & Year(dtDatum)
            End If   
           
            res = Application.Match(strHJ, Rows("1:1"), 0)
            If IsNumeric(res) Then
                Cells(Target.Row, 4).Resize(1, lastcol - 3).ClearContents
                For i = res To lastcol Step interv * 2
                    Cells(Target.Row, i) = 1
                Next
            End If           
        Else
            Cells(Target.Row, 4).Resize(1, lastcol - 3).ClearContents
        End If
        Application.EnableEvents = True
    End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.02.2024 20:04:23 Till
NotSolved
Blau Datum/Intervall-Zellen füllen
 19.02.2024 00:29:21 ralf_b
Solved
19.02.2024 12:23:31 Till
NotSolved
19.02.2024 12:58:51 Gast10462
NotSolved