Office: VBA

Hallo zusammen,

in einem Excel, das ich für Arbeitskollegen gebaut habe, müssen diese verschieden Zahlen und Angaben zurückmelden. Um zu verhindern, dass dabei durch falsche Kopieren die Metrik & Formeln in Mitleidenschaft gezogen werden, soll das Sheet so eingeschränkt werden, dass jedes Einfügen automatisch als "Werte einfügen" funktioniert, unahbhängig, ob das vom User so bewusst gemacht wurde.
Zusätzlich soll in den Spalte K und L jeder Eintrag als Uhrzeit formatiert (hh:mm) sein.

Im Web habe ich dazu folgenden Code gefunden. Problem: Während er in einer englischen Excelversion einwandfrei läuft, gibt es in jeder deutschen Version die Fehlermeldung "Ungültiger Prozeduraufruf oder ungültiges Argument".

Irgendwo scheint also ein ein sprachspezifisches Problem vorzuliegen.
Wie bekomme ich den Code auch in den deutschen Versionen zum Laufen, bzw. mach ihn sprachunabhängig?

PHP:

         Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim UndoList As String

Application.ScreenUpdating = False
Application.EnableEvents = False

On Error GoTo Whoa

'~~> Get the undo List to capture the last action performed by user
UndoList = Application.CommandBars("Standard").Controls("&Undo").List(1)

'~~> Check if the last action was not a paste nor an autofill
If Left(UndoList, 5) <> "Paste" And UndoList <> "Auto Fill" _
Then GoTo LetsContinue

'~~> Undo the paste that the user did but we are not clearing the
'~~> clipboard so the copied data is still in memory
Application.Undo

If UndoList = "Auto Fill" Then Selection.Copy

'~~> Do a pastespecial to preserve formats
On Error Resume Next
'~~> Handle text data copied from a website
Target.Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, _
DisplayAsIcon:=False

Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Columns("K:L").NumberFormat = "h:mm;@"
On Error GoTo 0

~~> Retain selection of the pasted data
Union(Target, Selection).Select

LetsContinue:
Application.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
Whoa:
MsgBox Err.Description
Resume LetsContinue
End Sub


:)

 

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Code:

 

Hallo Hajo_Zi,

Danke für die schnelle Antwort. Wenn ich das richtig sehe, ist Dein Code primär zur Änderung in das Uhrzeitformat. - funktioniert auch!

Wie sieht es denn mit dem "als Wert einfügen"-Teil aus?
Das ist momentan das für mich primär Wichtige. Hast Du da vielleicht auch was parat?
Danke!

 

das siehst Du falsch, Inhalt wird durch Wert ersetzt. Einfach testen.

 

Hmm,... Gerade ausprobiert - bei mir behält der eingefügte Wert seine Formatierung bei und passt sich nicht an die Zielformatierung der Zelle an.
Was mache ich falsch?

 

nur Spalte K und L sollten formatiert werden.
Text in einer Zelle kann nicht formatiert werden.

 

Ok, aber auch in den beiden Spalten änder sich das nicht.
Also wenn ich bspw. einen als Euro formatierten Wert nehme und in Spalte K oder L einfüge bleibt das dort ein Euro-Wert anstatt als Uhrzeit formatiert angezeigt zu werden.
Analoges gilt für Schriftfarbe, Zellformatierung etc.

 

in meiner Datei geht es, Deine Aktionen und Datei sehe ich nicht.
Den Beitrag #6 hast Du komplett gelesen?

 

PS. Nur in den Spalten L und K sollte es durch VBA als Uhrzeit (hh:mm) formatiert sein.
Das "paste as value" soll ansonsten im ganzen Sheet gelten.

 

das Stand im ersten Beitrag und der ist Grundlage für meinen Code.
Ich bin jetzt raus. Diese Diskussion ist für mich sinnlos.

 

Ja, Deine Beitrag habe ich gelesen.
Ganz klar ist der aber nicht. Das was ich will funktioniert schließlich in der englischen Excel-Version. Hast Du meinen Code oben mal angesehen?
Im Grunde müsste der ja nur fit für die deutsche Version gemacht werden. M.E. hat das mit der "Undo"-Funktion zu tun.