Office: Code für ganze Spalte

Chev84 · 10. Dezember 2012

Hallo zusammen,

ich probiere nun schon seit 2 Stunden an einem Code herum und bekomme es leider nicht auf die Reihe.

Nachfolgender Code soll so verändert werden, dass ich nicht jede einzelne Zelle in den Code eingeben muss, sondern dieser Befehl für die komplette Spalte übernommen wird. Ist das überhaupt möglich?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$2" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

If Target.Address = "$A$4" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

If Target.Address = "$A$5" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

If Target.Address = "$A$6" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

If Target.Address = "$A$7" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

If Target.Address = "$A$8" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

If Target.Address = "$A$9" Then
Application.EnableEvents = False
Application.Undo
If Not IsEmpty(Target) Then
MsgBox "Die Zelle darf nicht überschrieben werden"
Else
Application.Undo
End If
End If

Application.EnableEvents = True
If Target.Column = 1 Then Target.Offset(, 1) = Now

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Chev

:)

ASE · 11. Dezember 2012

Hallo Chev,
so einfach geht das:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
Application.EnableEvents = False
MsgBox "Die Zelle darf nicht überschrieben werden"
Application.Undo
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Chev84 · 11. Dezember 2012

Vielen Dank für die schnelle Antwort.

Nun habe ich aber das Problem, dass die Zellen die danach noch mit Werten versehen werden sollen, gesperrt sind.

Die Sperrung soll erst nach eintragung des Wertes erfolgen.

Puh ist das kompliziert :-)

ASE · 11. Dezember 2012

Hallo Chev,
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 AND Target.Value "" Then
Application.EnableEvents = False
MsgBox "Die Zelle darf nicht überschrieben werden"
Application.Undo
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Chev84 · 11. Dezember 2012

nun sagt er mir bei dieser Zeile: If Target.Column = 1 AND Target.Value "" Then --> "Typen unverträglich" *frown.gif*

ASE · 11. Dezember 2012

Hallo,
dann hast Du die Zelle als Numerisch Formatiert. Dann "target.value > 0"

Chev84 · 11. Dezember 2012

habe die Zeile nun so abgeändert:
If Target.Column = 1 And Target.Value > 0 Then

eine Fehlermeldung kommt nun nicht mehr. Allerdings kann ich immernoch nicht die leere Zelle mit Daten füllen... *frown.gif*

hary · 11. Dezember 2012

Hallo
Hab's so geloest.
Code:

Option Explicit
Dim a As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And a = False Then
Application.EnableEvents = False
MsgBox "Die Zelle darf nicht überschrieben werden"
Application.Undo
Else
Exit Sub
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 And Target = "" Then
a = True
Else
a = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Chev84 · 11. Dezember 2012

Danke!!! Es hat geklappt! VIelen Dank!

EarlFred · 11. Dezember 2012

\@hary,
Code:

If Target.Count > 1 Then Exit Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wenn man mehr als eine Zelle ändert, passiert demzufolge "nichts" - ungünstig! Besser alle Zellen im Bereich Target "abklappern", damit einem nichts durch die Lappen geht.

Grüße
EarlFred

Chev84 · 11. Dezember 2012

Oje, ich glaub ihr müsst mir noch ein letztes mal helfen...

Ich hatte nicht auf dem Schirm, dass das alles für Spalte A und B sein muss *frown.gif*

was muss ich dafür wo verändern?

Danke nochmal

hary · 12. Dezember 2012

Hallo
Code:

If (Target.Column = 1 Or Target.Column = 2) And a = False Then
'und
If (Target.Column = 1 Or Target.Column = 2) And Target = "" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary
@ EarlFred, Jepp nur brennt gleich mein Essen an. Oder wenn Count >1 then undo

EarlFred · 12. Dezember 2012

\@hary

[...]nur brennt gleich mein Essen an[...]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

das will keiner! Dann schnell MAAAAAAAAAHLZEIT & guten Appetit!

Grüße
EarlFred

Chev84 · 12. Dezember 2012

Vielen Dank!

Hat super geklappt!

Office: Code für ganze Spalte

Code für ganze Spalte

Code für ganze Spalte

Code für ganze Spalte

Code für ganze Spalte

Code für ganze Spalte

Code für ganze Spalte - Similar Threads - Code Spalte

Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

Office-Skript zum Ausblenden bestimmter Spalten

Office-Skript zum Ausblenden bestimmter Spalten

Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

Access VBA/DAO-Code kann abstürzen oder fehlerhafte Daten für Dezimal-Spalten melden

VBA Code Spalte für bestimmte Nuter ausblenden

Spalten in Zeilen umwandeln wenn A1 gleich A2