Thema Datum  Von Nutzer Rating
Antwort
10.03.2021 13:43:36 Luka
NotSolved
Blau VBA-Makro in ganzer Spalte wiederholen
 10.03.2021 13:54:39 Werner
*****
Solved
10.03.2021 14:04:01 Luka
NotSolved
10.03.2021 14:35:50 Luka
NotSolved
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 13:54:39		 Views:
522		 Rating:
     
Antwort:
 Nein
Thema:
VBA-Makro in ganzer Spalte wiederholen

Hallo,

meinst du so?

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 = 1 Then
        If IsNumeric(Target) Then
            Application.EnableEvents = False
            x = Target.Offset(, 1)
            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

Hinweis: Verwende als ersten Befehl Option Explicit. Das zwingt dich dazu, deine Variablen zu Dim(ensionieren).

Ich weiß jetzt nicht welche Werte x aufnehmen soll. Bei Ganzzahlen als Long Dim(ensionieren), bei Gleitkommazahlen als Double Dim(ensionieren).

 

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