Formatierung schützen per VBA ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
drag'n'Drop kannst du unter EXTRAS-OPTIONEN-BEARBEITEN deaktivieren.
im Prinzip hätte ich da 2 Ideen
die erste wäre, du Speicherst die Formate in einem 2. Tabellenblatt und kopierst diese von da bei bedarf in das erste:


Sheets("Formate").Cells.Copy
Sheets("Tabelle1").Cells(1,1).PasteSpecial xlPasteformats

den Code kannst du halt auf Wunsch ausführen oder im CHANGE-EVENT von Tabelle1 hinterlegen.
dann würde er jedesmal ausgeführt sobald in Tabelle 1 was geändert wird.
das zweite Makro kommt ohne zusätzliches tabellenblatt aus und funktioniert so:
- die Eingegebenen Werte werden in einem Array zwischengespreichert
- die Eingabe des Users wird Rückgängig gemacht und so die Formate wieder hergestellt
- die gespeicherten Werte werden in die Tabelle geschrieben (nur die werte, keine Formate)
allerdings hat dieses Makro den Nachteil, daß es nur bei CopyPaste funktioniert, nicht bei Drag'n'Drop, dh. das müsstest du wie oben beschrieben deaktivieren.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim arr
Set rng = Target.Cells(1, 1)
arr = Target.FormulaLocal
Application.EnableEvents = False
Application.Undo
Select Case Target.Cells.Count
Case 1
rng.Value = arr
Case Else
rng.Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Select
Application.EnableEvents = True
End Sub

Gurß, Daniel

Hallo,
vielen Dank für Eure ersten Tipps.
Vielleicht sollte ich noch einmal versuchen, genauer zu erklären, was ich denn genau suche.
In der Spalte A sollen nur Datumseingaben möglich sein. Die Formatierung für die Spalte A ist so eingestellt, das man nur Eingaben machen soll die dem Format "TTMMJJ" entsprechend. D. h. es soll nur möglich sein eine Zahl einzugeben z.B 281008.
Über die benutzerdefinierte Formatierung wird dann das Format entsprechend umgewandelt in das Format 28.10.2008.
Damit mir die Formatierung nicht "zerschossen" wird, soll es nicht möglich sein, das Format in der Spalte A zu ändern. Weder über copy und paste noch über drag & drop, noch über Format übertragen. Es Soll nur möglich sein Zahlen einzugeben.
Vielleicht wird es jetzt klarer, welches Problem ich lösen möchte.
Ich denke es wird nur eine Lösung über VBA geben, oder ?
mfg
Hans Werner

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatierung schützen per VBA ?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread