mit Makro in Bearbeitungsmodus und Text markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Franz,
zuerst eine kurze Erläuterung warum ich das mache. Ich kopiere aus SAP einen mehrzeiligen Text. Nur im Bearbeitungsmodus läßt sich dieser richtig einfügen.
So nun zur Funktion des Makros. Zurzeit macht das Makro folgendes: sobald ich in die Zellen C19:I36 springe wird der Bearbeitungsmodus gestartet und ich kann den Text aus der Zwischenablage einfügen. Aus dieser Zelle komme ich aber nur mit Return oder der Tab-Taste raus. Bei allen weiteren Zellen die ich aufrufe startet er leider dann immer noch im Bearbeitungsmodus.
Wenn in der ausgewählten Zelle bereits Text vorhanden ist, dann steht der Cursor am Ende des Textes. Das hat zur Folge, daß wenn ich in der Zelle was ändern will ich erst mal den Inhalt löschen muß. Deshalb mein Wunsch, daß der Zellinhalt markiert wird, dann kann ich nämlich diesen Text überschreiben oder falls der Text korrekt ist weiter zur nächsten Zelle springen.
Hast Du eine Idee für mein Problem?
Gruß,
Jakob

Hallo Jakob,
um einen mehrzeiligen Text aus der Zwischenablage in eine einzelene Zelle zu schreiben muss man unter VBA einen kleinen Umweg gehen.
Ob du den Parameter ReplaceCR auf False setzen muss weiss ich nicht. Der Wert "True" verhindert bei bestimmten Texten, dass unerwünschte Leerzeilen in der Zelle erscheinen.
Gruß
Franz


Dein bisheriges Makro - angepasst:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$19:$I$36" And [G6] = "PK" Or [G6] = "BD" _
Then
Call ClipBoardInZelleEinfuegen(rngZelle:=Target, ReplaceCR:=True)
Else
End If
End Sub
'Einfügeprozedur in einem allgemeinen Modul
'Bitte darauf achten, das im VBA-Editor unter Extras-->Verweise die _
"Microsoft Forms x.y Object Library" als verfügbar markiert ist.
Sub ClipBoardInZelleEinfuegen(rngZelle As Range, Optional ReplaceCR As Boolean = True)
Dim Zwischenablage As DataObject, strText As String
Set Zwischenablage = New DataObject
Zwischenablage.GetFromClipboard
If Zwischenablage.GetFormat(1) = True Then
If MsgBox(Prompt:="Text in Zelle: " & rngZelle.Address & vbLf & vbLf _
& rngZelle.Range("A1").Text & vbLf & vbLf & "ersetzen durch:" & vbLf & vbLf _
& Zwischenablage.GetText, Buttons:=vbYesNo + vbQuestion, _
Title:="Text aus Zwischenablage in Zelle einfügen") = vbYes Then
strText = Zwischenablage.GetText
If ReplaceCR = True Then
'ggf. CarriageReturns ersetzen
rngZelle.Value = VBA.Replace(strText, vbCr, "")
Else
rngZelle.Value = strText
End If
End If
Else
MsgBox "In der Zwischenablage ist kein Text"
End If
End Sub

Beliebteste Forumthreads (12 Monate)

mit Makro in Bearbeitungsmodus und Text markieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mit Makro in Bearbeitungsmodus und Text markieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread