MsgBox Schleife verhindern bei Makro
Aelsbeth
ich bastele immer noch weiter unter starker zur Hilfenahme Eurer Beiträge an meiner Datei.
Bin auch schon sehr weit gekommen :-)
Jetzt stellt sich ein kleines Problem:
Ich rufe beim Aktivieren eines Blattes eine MsgBox auf, die fragt, ob die Daten aktualisiert werden sollen. Wenn ja, springt das Ganze in ein anderes Modul und durchläuft da eine ellenlange Copy/Paste-Prozedur. Nur leider muss ich jetzt ungefähr 100 mal auf "Ja" klicken, damit es zu Ende geht :-( Wie kann ich dem Makro sagen, dass einmal "Ja" reicht?
Hier die MsgBox:
Private Sub Worksheet_Activate()
Auswahl = MsgBox("Das Datenblatt ist möglicherweise nicht mehr aktuell." & vbLf & "Sollen die _
_
_
Daten aktualisiert werden?", vbQuestion + vbYesNo, "Planungsdaten aktualisieren")
If Auswahl = vbYes Then
RBaktu
End If
End Sub
'Raumbuch aktualisieren und Zeilen mit "0" löschen
Sub RBaktu()
Dim RQ As Integer
Worksheets("Planungsdetails").Activate
ActiveSheet.Unprotect "HBB"
letzte1 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Range(Cells(5, 1), Cells(letzte1, 1)).EntireRow.Delete
Application.ScreenUpdating = False
Projekt
Vorbereiten
'Zeilen mit Nullwert löschen
letzte2 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For RQ = letzte2 To 13 Step -1
If Cells(RQ, 14).Value = "0" Then Rows(RQ).Delete
Next RQ
Application.ScreenUpdating = True
ActiveSheet.Protect "HBB", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
userinterfaceonly:=False
Unload Warten
Cells(10, 2).Activate
End Sub
Bin für jeden Tipp dankbar :-)
LG Aelsbeth