Formatierung

Forumthread: Formatierung

Formatierung

22.09.2024 13:23:26

Simon

Wir lesen diese Zahlen aus der Zwischenablage aus.
Diese sollen aber ohne Umbruch hintereinander stehen und dies immer.
1, 2, 3 und so weiter je nach Länge die sich verändern kann

Welchen VBA Code muss ich wo ergänzen damit es immer so bleibt.

Danke

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formatierung

22.09.2024 13:33:52

RPP63
AW: Formatierung

22.09.2024 13:35:12

Simon
AW: Formatierung

22.09.2024 13:48:31

RPP63
AW: Formatierung

22.09.2024 13:56:38

Simon
AW: Formatierung

22.09.2024 14:02:21

RPP63
AW: Formatierung

22.09.2024 14:14:01

Simon
AW: Formatierung

22.09.2024 14:29:31

RPP63
AW: Formatierung

22.09.2024 14:46:41

Simon
AW: Formatierung

22.09.2024 14:57:47

Simon
AW: Formatierung

22.09.2024 15:26:37

Simon
AW: Formatierung

22.09.2024 14:51:31

RPP63

AW: Formatierung

22.09.2024 13:33:52

RPP63

Moin!
Deaktiviere den Zeilenumbruch der Zelle!

Gruß Ralf

AW: Formatierung

22.09.2024 13:35:12

Simon

Habe ich versucht...
Kommt immer wieder

AW: Formatierung

22.09.2024 13:48:31

RPP63

Dann zeige mal die Datei und die Quelle der Zwischenablage.

AW: Formatierung

22.09.2024 13:56:38

Simon

Das ist die VBA:

Sub AusZwischenablage_zwischen_Klammern()

Dim DaOb As DataObject
Dim txt As String
Dim Pos1 As Long
Dim Pos2 As Long

'-----------------------------------------------------
' Vor erstellen des Codes
' aktiviere unter EXTRAS - VERWEISE den Verweis:
' Microsoft Forms 2.0 Object Library
'-----------------------------------------------------

'text aus zwischenablage holen
Set DaOb = New DataObject
DaOb.GetFromClipboard
txt = DaOb.GetText

'text zwischen eckigen Klammern ermitteln
Pos1 = InStr(txt, "[")
Pos2 = InStr(txt, "]")

If Pos1 > 0 And Pos2 > Pos1 Then
txt = Left(txt, Pos2 - 1)
txt = Mid(txt, Pos1 + 1)
'Text in aktive Zelle einfügen
ActiveCell.Value = txt
Else
Beep
End If

End Sub

AW: Formatierung

22.09.2024 14:02:21

RPP63

Deinen Code kannte ich bereits!
Nochmal:
Zeige die Datei und die Quelle der Zwischenablage.

AW: Formatierung

22.09.2024 14:14:01

Simon

Test Zwischenablage

https://www.herber.de/bbs/user/172297.xlsx

AW: Formatierung

22.09.2024 14:29:31

RPP63

Tausche mal Dein Code-Fragment durch meines:

'text zwischen eckigen Klammern ermitteln

Pos1 = InStr(txt, "[") + 2

Pos2 = InStr(txt, "]") - 7



If Pos1 > 0 And Pos2 > Pos1 Then

  txt = Left(txt, Pos2 - 1)

  txt = Mid(txt, Pos1 + 1)

  'Text in aktive Zelle einfügen

  ActiveCell.Value = Replace(txt, Chr(10), ", ")

Else

  Beep

End If

AW: Formatierung

22.09.2024 14:46:41

Simon

Steht immer noch so leider...
nur jetzt mit 1,, 2,, 3,, ...

AW: Formatierung

22.09.2024 14:57:47

Simon

Kann es sein da wir eine feste Zelle haben wie z. B. B15...??

AW: Formatierung

22.09.2024 15:26:37

Simon

Geht jetzt auch, sind aber 8 Leerzeihen nach dem Komma.

Noch ne Frage..
Wenn ich aus der gleichen Zwischenablage noch eine Info haben wollen würde, ginge dies?

Danke

AW: Formatierung

22.09.2024 14:51:31

RPP63

Da bei mir folgendes steht, bin ich raus!

Forumthread: Formatierung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread