Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Auftragsformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Tastenbefehl F2 und ENTER senden

Mit Hilfe der Funktionstaste [F2] wird eine Zelle in den Bearbeitungsmodus gebracht. Die Taste [Enter] schließt den Bearbeitungsmodus wieder ab.

Dies kann nach einem Textimport notwendig werden, denn beim Import erkennt Excel oftmals Zahlen als Text.  Mit diesen Zahlen im Textformat kann aber nicht mehr gerechnet werden.

Da es allerdings relativ aufwändig ist, eine größere Liste manuell mit der Tastenfolge [F2] und [Enter] zu bearbeiten, haben ich folgenden VBA-Code entwickelt, der dies für den angegebenen Zellbereich automatisiert.

Im Beispiel-Code wird die Tastenfolge automatisiert auf den Zellbereich A1:C50 angewendet.


Public Sub Test_f2()
'Alle Werte in Zahlenwerte umwandeln
Dim zelle2 as Object
Sheets(1).Range("A1:C50").select
For Each zelle2 In Selection
   SendKeys "{F2}", True
   SendKeys "{ENTER}", True
Next zelle2
End Sub

Damit der Code auch korrekt auf das Tabellenblatt angewendet wird, muss dieser beispielsweise über eine Schaltfläche ausgeführt werden. Fügen Sie dazu eine Schaltfläche auf das betreffende Tabellenblatt ein und weisen dieser das Makro Test_f2 zu.

Alternativ können Sie den Code auch über das Menü Entwicklertools | Code | Makros ausführen. Markieren Sie dazu im Dialogfenster Makro das Makro Test_f2 und starten Sie dieses über einen Klick auf die Schaltfläche Ausführen.

Damit ist sichergestellt, dass sich die Funktion SendKeys auf das Tabellenblatt und nicht auf den VBA-Editor auswirkt. 

Hinweis:

Wenn Sie das Makro im VBA-Editor beispielsweise direkt über die Funktion [F5] ausführen, wirkt sich die Funktion SendKeys auf den VBA-Editor aus und nicht auf das Tabellenblatt aus, da dieser zum Zeitpunkt der Makroausführung aktiviert ist.

 

 

 

   

Relevante Artikel