Zellinhalt vor Verlassen in Variable

MRUTOR · 2021-06-18T08:53:56+00:00

Hallo zusammen, Sorry, aber ich stehe gerade irgendwie auf dem Schlauch. Frage: ist es moeglich, die Eingabe in einer Zelle an eine Variable zu uebergeben, bevor die Zelle mit klick oder Enter verlassen wird? Also praktisch die Eingabe mitlesen und direkt in die Variable schreiben. Hintergrund ist, dass ich nach dem Verlassen den Inhalt bearbeiten will. Das geht aber dann nicht mehr mit ActiveCell, da diese ja nicht mehr die aktive ist. Das ganze soll in einem Modul geschehen, also nicht mit Target im Tabellenblatt Code. Vielen Dank schon mal fuer eure Hilfe. Gruss Tor

Hallo Thorsten,
danke fuer deine Antwort und sorry, dass ich mich so spaet wieder melde.
Ich habe jetzt alles soweit hinbekommen, wie ich es will. Mit einer Ausnahme. Und zwar geht es hier um Telefonnummern, die in Spalte M eingetragen werden und bearbeitet werden sollen. Es gibt verschiedene Moeglichkeiten. Aber das ist Nebensache. Mein Problem hier ist nun: Ich kopiere eine Nummer mit internationaler Vorwahl mit Strg+C z.B. aus einem Word Doc und beim Einfuegen mit Strg+V in die Excel Zelle geht mir immer das + verloren und die Zelle wird auf Format Standard gesetzt. Somit kann ich meine Bearbeitung mit Case "+" vergessen, da das "+" nicht mehr da ist. Hier soll naemlich eigentlich das + durch 2 Nullen ersetzt werden.
Hier mein Code dazu:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M:M")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target  "" Then
Target.NumberFormat = "@"
S = Target
Tel_Aendern (S)
Application.EnableEvents = False
Target = Speicher
Application.EnableEvents = True
End If
End If
End Sub

und


Sub Tel_Aendern(cbtext As String)
Speicher = cbtext
Select Case Left(Speicher, 1)
Case "0": Speicher = Speicher                   'wenn eine Null am Anfang, dann lassen
Case "+": Speicher = "00" & Mid(Speicher, 2)    'wenn + am Anfang, dann durch 2 Nullen ersetzen
Case Else: Speicher = "0" & Speicher            'wenn Null der Vorwahl vergessen, dann Null ergaenzen
End Select
End Sub

Ich hoffe, jemand kann mir helfen, damit beim Kopieren das + nicht mehr verloren geht.
Uebrigens wird bei jedem Selection_Change die Spalte M als Text formatiert. Ich hatte gehofft, dass das + dadurch erhalten bleibt. Aber leider nein.
Gruss Tor

Eine andere Möglichkeit wäre das Auslesen der Zwischenablage:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M:M")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target  "" Then
Dim oData As Object
Set oData = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
On Error Resume Next
oData.GetFromClipboard
S = oData.GetText
On Error GoTo 0
Target.NumberFormat = "@"
Application.EnableEvents = False
Target = Tel_Aendern(S)
Application.EnableEvents = True
End If
End If
End Sub

Function Tel_Aendern(ByVal cbtext As String) As String
Speicher = cbtext
Select Case Left(Speicher, 1)
Case "0": Speicher = Speicher 'wenn eine Null am Anfang, dann lassen
Case "+": Speicher = "00" & Mid(Speicher, 2) 'wenn + am Anfang, dann durch 2 Nullen ersetzen
Case Else: Speicher = "0" & Speicher 'wenn Null der Vorwahl vergessen, dann Null ergaenzen
End Select
Tel_Aendern = Speicher
End Function
Ich habe die Umwandlung in eine Function geändert, damit man den Wert der Umwandlung direkt zuordnen kann. Die globale Variable Speicher ist nun nicht mehr notwendig.

Zellinhalt vor Verlassen in Variable

Forumthread: Zellinhalt vor Verlassen in Variable

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zellinhalt vor Verlassen in Variable

Forumthread: Zellinhalt vor Verlassen in Variable

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread