VBA rennt in Schleife

Hallo!
Ich habe das folgende Problem, dass mein Makro in eine Schleife rennt und ich keine Ahnung habe wieso - evtl kann mir jemand helfen.
Es geht dabei um folgendes:
In eine Zelle kann ein Wert eingetragen (c25), ist die Zelle leer, so wird ein bestimmter Bereich ausgeblendet und das Makro endet. Wird in die Zelle ein Wert eingetragen (z.B. 3) erscheint der ausgeblendete Bereich und und der Bereich wird x-1 mal kopiert.
Wird C25 geleert, soll der Bereich weider ausgeblendet werden und alle Zeilen darunter gelöscht, sodass der Anwender einen neuen Wert eintragen kann.
Leider funktioniert das nicht, Excel kopiert einfach weiter.
Ziehe ich das Makro auseinander und benutze nur den Teil, der für das Kopieren zuständig ist, funktioniert es, auch der Teil zum Ein/Ausblenden alleine funktioniert, nur die Kombi nicht,
Anbei mal der Code:


Private Sub Worksheet_Change(ByVal Target As Range)
Screenupdate = False
If Range("C25").Value = "" Then
Rows("29:55").Hidden = True
Worksheets("testblatt").Rows(56 & ":" & Worksheets("Testblatt").Rows.Count).Delete
Exit Sub
Else
Rows("29:55").Hidden = False
End If
Dim lr As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
Set X = Sheets("Testblatt").Range("C25")
Do Until X = 1
Range("B29:D55").Copy Destination:=Range("B" & lr + 2)
lr = Cells(Rows.Count, "B").End(xlUp).Row
X = X - 1
Loop
Screenupdate = True
End Sub

Danke schonmal für Hilfestellungen!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Long, X As Long Application.ScreenUpdating = False If Target.Address(0, 0, xlA1) = "C25" Then If Target = "" Then Rows("29:55").Hidden = True Rows(56 & ":" & Rows.Count).Delete Else Rows("29:55").Hidden = False lr = Cells(Rows.Count, "B").End(xlUp).Row X = CLng(Target.Value) Do Until X = 1 Range("B29:D55").Copy Destination:=Range("B" & lr + 2) lr = Cells(Rows.Count, "B").End(xlUp).Row X = X - 1 Loop End If End If Application.ScreenUpdating = True End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Long, X As Long Application.ScreenUpdating = False If Target.Address(0, 0, xlA1) = "C25" Then If Target = "" Then Rows("29:55").Hidden = True Rows(56 & ":" & Rows.Count).Delete Else Rows("29:55").Hidden = False lr = Cells(Rows.Count, "B").End(xlUp).Row X = CLng(Target.Value) Do Until X = 1 Range("B29:D55").Copy Destination:=Range("B" & lr + 2) lr = Cells(Rows.Count, "B").End(xlUp).Row X = X - 1 Loop End If End If End Sub

Hallo Herbert,
hier meine kleine Manöverkritik.
in Vba verlasse ich mich nie auf Standard-Einstellungen, da es keinen Hintergrund-Compiler gibt wie in VB.Net bzw. C#, deshalb
- Application.ScreenUpdating = False in der Sub festgelegt
- so erfolgt am Schluß dieser auch Application.ScreenUpdating = True (ist meine persönliche Ansichtssache)
- Target = "" sieht bei mir immer so aus: Target.Value = ""
- wenn Du Deinen Code mal im Einzelschrittmodus durchsteppst, wirst Du feststellen
- das bei diesen Befehlen: Rows(56 & ":" & Rows.Count).Delete und Range("B29:D55").Copy Destination:=Range("B" & lr + 2)
- das Worksheet_Change-Ereignis erneut aufgerufen wird, ohne daß das vorherige Ereignis komplett abgearbeitet wurde
- hier fehlt die Einstellung: Application.EnableEvents = False, um das zu verhindern
- wenn ich zig-tausende Zeilen lösche (wie bei Rows(56 & ":" & Rows.Count).Delete) dann schalte ich vorher die
automatische Berechnung ab
- zum Steuern der Excel-Ereignisse nutze ich die Routine 'GetMoreSpeed' die in vielen Excelforen rumgeistert
Also nix für Ungut und
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA rennt in Schleife

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread