10.09.2016, 22:42
Guten Abend zusammen,
ich bin auf der Arbeit über ein kleines Excelproblem gestolpert an dem ich mir nun seit ca 1 Woche die Zähne ausbeiße.
Wir haben eine Bereitschaftsplan bei klick auf den Namen des Mitarbeiters im Dienst geht eine userform auf. iIn der userform sind textfelder mit den Telefonnummern des betreffenden. Zum besseren lesen sind die Zahlenblöcke der Telefonnummer mit Leerzeichen getrennt. Rechts neben dem Texfeld ist jeweils ein Button mit dem man bei unserer alten Telefonanlage den betreffenden Mitarbeiter über die Telefonsoftware direkt angerufen hat. Der Button setzt den focus auf die zelle, markiert den Inhalt und drückt F8.
Mit der Software der neuen Anlage ist das so nicht mehr möglich, allerdings kann man mit STRG U das selbe erreichen. mit dem Unterschied das die neue Anlage die 0 für das Amt vorwählen muß und die Leerzeichen nicht ignoriert wie bei der alten Anlage. Die Telefonnummern in der hinterlegten Tabelle zu ändern, was ja die einfachste Lösung gewesen wäre, wird aus mir unerfindlichen Gründen nicht gewünscht.
gibt es die Möglichkeit sowas via VBA zu lösen?
Die Telfonnummer sehen ungefähr so aus: 0123 45 678 901
Der alte Code ist dieser:
Private Sub Tel6_Click()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
TextBox6.SetFocus
TextBox6.SelStart = 0
TextBox6.SelLength = Len(TextBox6.Text)
objShell.SendKeys "{F8}"
End Sub
das F8 würde durch ^(U)
für die Leerzeichen finde ich nur Optionen um sie zu entfernen aber nicht um sie bei button klcik zu ignorieren. Bei der vorgesetzen Null finde ich auch nur Möglichkeiten die Daten per klick zu verändern. Vielleicht suche ich auch bei Google auch mit den falschen Schlüsselwörtern. Trete seit einer Woche, wie gesagt, schon auf der Stelle und bin für jede Hilfe dankbar.
MFG
Micha
ich bin auf der Arbeit über ein kleines Excelproblem gestolpert an dem ich mir nun seit ca 1 Woche die Zähne ausbeiße.
Wir haben eine Bereitschaftsplan bei klick auf den Namen des Mitarbeiters im Dienst geht eine userform auf. iIn der userform sind textfelder mit den Telefonnummern des betreffenden. Zum besseren lesen sind die Zahlenblöcke der Telefonnummer mit Leerzeichen getrennt. Rechts neben dem Texfeld ist jeweils ein Button mit dem man bei unserer alten Telefonanlage den betreffenden Mitarbeiter über die Telefonsoftware direkt angerufen hat. Der Button setzt den focus auf die zelle, markiert den Inhalt und drückt F8.
Mit der Software der neuen Anlage ist das so nicht mehr möglich, allerdings kann man mit STRG U das selbe erreichen. mit dem Unterschied das die neue Anlage die 0 für das Amt vorwählen muß und die Leerzeichen nicht ignoriert wie bei der alten Anlage. Die Telefonnummern in der hinterlegten Tabelle zu ändern, was ja die einfachste Lösung gewesen wäre, wird aus mir unerfindlichen Gründen nicht gewünscht.
gibt es die Möglichkeit sowas via VBA zu lösen?
Die Telfonnummer sehen ungefähr so aus: 0123 45 678 901
Der alte Code ist dieser:
Private Sub Tel6_Click()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
TextBox6.SetFocus
TextBox6.SelStart = 0
TextBox6.SelLength = Len(TextBox6.Text)
objShell.SendKeys "{F8}"
End Sub
das F8 würde durch ^(U)
für die Leerzeichen finde ich nur Optionen um sie zu entfernen aber nicht um sie bei button klcik zu ignorieren. Bei der vorgesetzen Null finde ich auch nur Möglichkeiten die Daten per klick zu verändern. Vielleicht suche ich auch bei Google auch mit den falschen Schlüsselwörtern. Trete seit einer Woche, wie gesagt, schon auf der Stelle und bin für jede Hilfe dankbar.
MFG
Micha