Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Eingabe nur wenn
07.12.2004 08:44:27
Lars
hallo zusammen
bin totaler newbie und benötige eure hilfe
brauche für ein projekt folgendes.
zellen A2:A5 sollen gesperrt sein wenn zelle A1 leer ist. steht in zelle A1 etwas können auch in diese etwas eingegeben werden.
wird nun der inhalt von A1 gelöscht sollen auch zellen B1:E1 leer werden.
gleiches soll für A7 mit D7:G7 und A17 mit D17:G17 gelten
ähliches problem hat auch vorher jemand gefragt allerdings noch kein ergebnis.
ich bedanke mich im voraus
lg lars

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe nur wenn
Volker
Hallo Lars,
kopier diesen Code in dein Tabellenblatt im VBA Editor

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("d1:g1")) Is Nothing And Range("A1") = "" Then
Range("d1:g1").ClearContents
Range("a1").Select
ElseIf Not Application.Intersect(Target, Range("d7:g7")) Is Nothing And Range("A7") = "" Then
Range("d7:g7").ClearContents
Range("a7").Select
ElseIf Application.Intersect(Target, Range("d17:g17")) Is Nothing And Range("A17") = "" Then
Range("d17:g17").ClearContents
Range("a17").Select
End If
End Sub

Kann es sein, dass Du dich, was Zelle A1 betrifft, vertippt hast.
Ich hab es jetzt mal so gemacht wie ich es verstanden hab.
Noch ein Tip für den Anfänger: Du kannst im Code Haltepunkte setzen, an denen die Ausführung stoppt. Mit F8 kannst Du dann schrittweise weitergehen und sehen was passiert.
Gruß
Volker
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige