Thema Datum  Von Nutzer Rating
Antwort
10.03.2021 13:43:36 Luka
NotSolved
10.03.2021 13:54:39 Werner
*****
Solved
10.03.2021 14:04:01 Luka
NotSolved
10.03.2021 14:35:50 Luka
NotSolved
Rot VBA-Makro in ganzer Spalte wiederholen
 10.03.2021 19:50:58 Werner
*****
Solved
11.03.2021 16:12:04 Luka
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
10.03.2021 19:50:58		 Views:
507		 Rating:
     
Antwort:
 Nein
Thema:
VBA-Makro in ganzer Spalte wiederholen

Hallo,

wenn das "Ziel" weiterhin in Spalte B und C ist dann:

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Long
 
On Error GoTo Ausgang
If Target.Count = 1 Then
    If Target.Column = 5 Then
        If IsNumeric(Target) Then
            Application.EnableEvents = False
            x = Target.Offset(, -3)
            x = x + Target
            Target.Offset(, 1) = x
            x = Target.Offset(, -2)
            x = x + 1
            Target.Offset(, -2) = x
            Target.ClearContents
        End If
    End If
End If
 
Ausgang:
On Error GoTo -1
Application.EnableEvents = True
End Sub

Gruß Werner

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
10.03.2021 13:43:36 Luka
NotSolved
10.03.2021 13:54:39 Werner
*****
Solved
10.03.2021 14:04:01 Luka
NotSolved
10.03.2021 14:35:50 Luka
NotSolved
Rot VBA-Makro in ganzer Spalte wiederholen
 10.03.2021 19:50:58 Werner
*****
Solved
11.03.2021 16:12:04 Luka
NotSolved