Per Makro Zelle auswählen am Textende schreiben

Computer: Software & Programmierung Office Software
1

Hallo,

wie kann ich in Excel, per Makro, eine Zelle so auswählen,daß ich sofort am Ende des Textes in dieser Zelle weiterschreiben kann?

Im Normalfall Doppelklick hinter den Text, aber per Makro ???

Besten Dank im Voraus

Bernd

2

wie kann ich in Excel, per Makro, eine Zelle so auswählen,daß
ich sofort am Ende des Textes in dieser Zelle weiterschreiben
kann?

Im Normalfall Doppelklick hinter den Text, aber per Makro ???

Hi Bernd,
auf die Schnelle,

Alt+F11, Doppelklick auf den Blattnamen. Code reinkopieren, Editor schliessen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SendKeys „{F2}“
End Sub

Allerdings, es ist schwierig daraus wieder rauszukommen :smile:

Gruß
Reinhard

3

wie kann ich in Excel, per Makro, eine Zelle so auswählen,daß
ich sofort am Ende des Textes in dieser Zelle weiterschreiben
kann?

Im Normalfall Doppelklick hinter den Text, aber per Makro ???

Hi Bernd,
auf die Schnelle,

Alt+F11, Doppelklick auf den Blattnamen. Code reinkopieren,
Editor schliessen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SendKeys „{F2}“
End Sub

Allerdings, es ist schwierig daraus wieder rauszukommen :smile:

mit Esc

Gruß
Reinhard

Danke,
genau das war’s.

Gruß Bernd

4

Bei Zelleneintritt gleich in Bearbeitungsmodus

wie kann ich in Excel, per Makro, eine Zelle so auswählen,daß
ich sofort am Ende des Textes in dieser Zelle weiterschreiben
kann?

Allerdings, es ist schwierig daraus wieder rauszukommen :smile:

mit Esc

Hi Bernd,

okay, auf Esc kam ich nicht.

Ich denke aber diese Variante ist graziler, Ein Klick in Tabelle1!A1 wechselt zwischen Spezialbearbeitungsmodus und normalem Modus.

in DieseArbeitsmappe:

Option Explicit
'
Private Sub Workbook\_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Address(0, 0) = "A1" And Sh.Name = "Tabelle1" Then
 EinAus = Not EinAus
 Application.EnableEvents = False
 Target = EinAus
 Application.EnableEvents = True
Else
 If EinAus Then SendKeys "{F2}"
End If
End Sub

Gruß
Reinhard