Thema Datum  Von Nutzer Rating
Antwort
19.02.2024 15:42:29 Dirk
Solved
19.02.2024 18:34:34 xlKing
NotSolved
Rot Automatisierte Zellen Aktualisierung
 19.02.2024 21:33:33 Dirk
NotSolved
19.02.2024 21:58:38 xlKing
NotSolved
19.02.2024 21:59:17 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Dirk		 Datum:
19.02.2024 21:33:33		 Views:
62		 Rating:
     
Antwort:
  Ja
Thema:
Automatisierte Zellen Aktualisierung		 
ich habe folgendes Makro:


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:C1000"), 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

Allerdings ist die Spalte C schon gefüllt. Und das Makro wird nur bei Veränderung der Zellen aktiviert. Ich müsste jetzt zelle der Spalte C anwählen und mit f2 aktualisieren. Und dafür suche ich eine Lösung 

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
19.02.2024 15:42:29 Dirk
Solved
19.02.2024 18:34:34 xlKing
NotSolved
Rot Automatisierte Zellen Aktualisierung
 19.02.2024 21:33:33 Dirk
NotSolved
19.02.2024 21:58:38 xlKing
NotSolved
19.02.2024 21:59:17 ralf_b
NotSolved