Zellen einfügen schützen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten
für deine Mühe danke ich dir herzlich.
Deine Idee ist auch gut, aber für meine Zwecke leider nicht so brauchbar.
Das Blatt ist bei mir eine Rechnung und im oberen Teil sind die kaufmännischen Angaben, wie Bearbeiter, Tel., Kundenadresse, Datum, RE-Nr. etc. . Ab Zeile 29 füge ich die Produkte ein, daher muss ich Zeilen einfügen oder löschen können. Die Daten im oberen Teil werden mittels Formular/VBA eingetragen. Aber ich habe die Zellen damit genau definiert. Die Lösung mit VBA habe ich genommen, um Formeln zu umgehen, die dann ja eventuelle wieder überschrieben werden könnten.
Bei deiner Lösung muss ich wieder Formeln eingeben.
Es ist schwer zu beschreiben, aber ich hoffe, ich habe mich trotzdem einigermassen verständlich ausgedrückt.
Danke nochmal für deine Arbeit!
Gruss
mone

Hi Mone
Nun steh aber wieder auf...zu viel (ver)beugen macht Rückenaua :-)
Und wenn es dir nur um die MsgBox geht, dann tausch deinen Code gegen diesen hier aus:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim liZeile As Integer
For liZeile = 1 To 29
If Cells(liZeile, 8)  "testeintrag" Then
MsgBox "Löschen/Hinzufügen von Zeilen/Spalten in diesem Bereich nicht erlaubt!", _
vbExclamation, "unerlaubter Zugriff"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
Next
End Sub

Noch ein kleiner Verbesserungsvorschlag:
Du schreibst, dass du nun Spalte 47 als Hilfsspalte verwendest.
Das kann aber bedeuten, dass deine Datei nun auffallend mehr Speicherplatz benötigt, da Excel "denkt", du brauchst 47 Spalten, und speichert eben alle Infos für 47 Spalten - aber du brauchst ja nur 20 Spalten...(A bis S = 1 bis 19 + 1 Hilfsspalte).
Deswegen empfehle ich dir, anstelle von Spalte AU, die Spalte T zu verwenden und auszublenden.
Ausblenden geht, wie folgt:
vorher
Userbild
dann mit Rechtsklick auf den Spaltenkopf T,
und mit Links dann "Ausblenden" anklicken, was so aussieht

das Ergebnis sieht so aus

Nun sind S und U sichtbar, und T ist ausgeblendet.
Aber natürlich kannst du auch die Schriftfarbe in T gleich der Hintergrundfarbe einstellen.
Funktionierts denn mit der MsgBox nun auch bei dir? :-)
Ciao
Thorsten

Private Sub Worksheet_Change(ByVal Target As Range) Dim lbMsg As Byte, liIndex As Integer If Not Intersect(Target, Range("A1:J29")) Is Nothing Then If InStr(1, Target.Address, ":") > 0 Or InStr(1, Target.Address, ",") > 0 Then For liIndex = 1 To Target.Count If Target(liIndex).Value = "" Then lbMsg = MsgBox("Löschen eines Wertes in diesem Bereich nicht _ erlaubt!", vbExclamation, "unerlaubter Zugriff") With Application .EnableEvents = False .Undo .EnableEvents = True End With Exit For End If Next Else If Target.Value = "" Then lbMsg = MsgBox("Löschen eines Wertes in diesem Bereich nicht erlaubt!", _ _ vbExclamation, "unerlaubter Zugriff") With Application .EnableEvents = False .Undo .EnableEvents = True End With End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen einfügen schützen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

59 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread