Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Musseingabe VBA Schleife , Nachtrag 2

Musseingabe VBA Schleife , Nachtrag 2
rene
Hallo zusammen ,
Zunächst vielen Dank, an Tino und natürlich auch den anderen ,die mir mit ihren Antworten sehr geholfen haben.
Dennoch eine Frage zu diesem Thema , wie müsste der enthalten Code geändert werden damit einzelne Zellen angesprochen werden können? z.B. A1 ,C5 , D9 sollen als Musseingabe Zelle definiert sein,sind diese Zellen nicht gefüllt sollte das speichern der Arbeitsmappe nicht möglich sein .
Beispielmappe
https://www.herber.de/bbs/user/81635.xls
Vielen Dank

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Musseingabe VBA Schleife , Nachtrag 2
30.08.2012 10:46:54
Rudi
Hallo,
als Anregung.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rngMuss As Range
With Sheets("Versandauftrag")
Set rngMuss = Union(.Range("B1:B2"), .Range("C5"), .Range("D9"))
End With
If Application.CountA(rngMuss)  rngMuss.Count Then
MsgBox "Speichern nicht möglich"
Cancel = True
End If
End Sub

Gruß
Rudi
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige