ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

Forumthread: ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

25.07.2005 16:02:37

Chicagoflyer

Hallo !
Ich möchte hellgrüne, leere Excel-Zellen (A1:B50), nach dem sie mit Zahlen (x größer 0) beschrieben wurden, mit dem Schließen der Datei automatisch hellgelb färben und für weitere Eintragungen SPERREN. Die noch nicht beschriebenen Zell sollen natürlich weiter zugänglich sein. Ich weiß, dass der Makro als Before-Closing-Prozedur geschrieben werden muss, ABER WIE MUSS DER MAKRO GENAU FORMULIERT SEIN ? Ich wäre Euch sehr dankbar, ich brauche das für mein Akreditierungs-Audit.
Vielen Dank
Chicagoflyer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

25.07.2005 20:34:18

MartinM

Hallo Chicagoflyer
Mustermappe:
https://www.herber.de/bbs/user/24994.xls
'Code in Tabelle wo der Bereich ist der nur einmal beschrieben werden darf
Option Explicit
Dim full As Boolean


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B50")) Is Nothing Then
If full = True Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox ("Diese Zelle darf nur 1x beschrieben werden!")
End If
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B50")) Is Nothing Then
If Target = "" Then full = False Else full = True
End If
End Sub

'Code in ein Standart Modul:
'Damit wird Der Bereich mit einer bedingten Formatierung belegt.
Option Explicit
Sub BedingteFormatierung()
Windows("DeineMappe.xls").Activate
With Range("A1:B50")
.Interior.ColorIndex = 35
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="0"
.FormatConditions(1).Interior.ColorIndex = 36
End With
End Sub
Vieleich hat ein ander User noch die Idee wie der Error bei einer Markierung über mehrere Zellen verhindert wird ohne dass das Makro beendet wird.
Gruss
Martin

AW: ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

25.07.2005 20:51:38

Nepumuk

Hi,
eine Beispielmappe:
https://www.herber.de/bbs/user/24995.xls
Gruß
Nepumuk
Excel & VBA Beispiele

AW: ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

26.07.2005 14:21:16

Chicagoflyer

Hallo !
Ich möchte mich für die beiden Antworten herzlich bedanken, das Beispiel von Nepumuk läuft wirklich sehr gut. Bin gerade dabei, das Beispiel auf mein File zu übertragen. Ein kleines Problem stellt sich noch: in anderen leeren, hellgrünen Zellenbereichen werden nur Texte wie "591-80/82" oder "243-1" oder "KPGF-1" eingetragen, da funktioniert die Zeile
If IsNumeric(.Text) And Val(.Text) &gt 0 Then
leider nicht - den Ausdruck "&gt 0" muss ich durch etwas anderes ersetzen; daran "bastle" ich im Moment.
Vielen Dank noch einmal
Chicagoflyer

Beliebteste Forumthreads (12 Monate)

ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

Forumthread: ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

Forumthread: ZELLEN NACH EINTRAG MIT DATEI-SCHLIESSEN SPERREN

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread