Zeileninhalte mit Komma trennen (VBA)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Salut,
die Story mit dem Dackel kenne ich, daher wollte ich es ja vermeiden. Habe den Code von Ransi nun angepasst:


Sub Schaltfläche10_BeiKlick()
Dim IE As Object
Dim DerText As String
Dim arr As Variant
Dim L As Long
L = Cells(Rows.Count, 8).End(xlUp).Row
arr = WorksheetFunction.Transpose(Sheets("ACM_DB").Range("H1:H" & L).Value)
DerText = Join(arr, "; ")
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", vbNullString & DerText
Set IE = Nothing
End Sub

Ein weiterer Nachteil dieser Variante ist, dass der Code leere Zellen (die auch vorkommen) nicht ignoriert und auch für diese ein Semikolon setzt. Das macht Reinhards Code nicht, dieser überspringt leere Zellen einfach. Wie liesse sich das bei Ransis Code realisieren?
Danke & Gruß

Sub Schaltfläche10_BeiKlick() Dim IE As Object, DerText As String, arr As Variant, L As Long With Sheets("ACM_DB") L = .Cells(.Rows.Count, 8).End(xlUp).Row arr = WorksheetFunction.Transpose _ (.Range("H1:H" & L).SpecialCells(xlCellTypeConstants).Value) End With DerText = Join(arr, "; ") Set IE = CreateObject("HTMLfile") IE.ParentWindow.ClipboardData.SetData "text", vbNullString & DerText Set IE = Nothing End Sub

Option Explicit Public Sub schreiben() Dim IE As Object Dim DerText As String Dim arr As Variant Dim L As Long L = Cells(Rows.Count, 8).End(xlUp).Row arr = WorksheetFunction.Transpose(Range("H1:H" & L).Value) DerText = Join(arr, ";") Set IE = CreateObject("HTMLfile") Do DerText = Application.Substitute(DerText, ";;", ";") Loop While InStr(DerText, ";;") > 0 IE.ParentWindow.ClipboardData.SetData "text", vbNullString & DerText Set IE = Nothing End Sub

Sub Schaltfläche10_BeiKlick() Dim IE As Object, DerText As String, arr As Variant, L As Long With Sheets(1) L = .Cells(.Rows.Count, 8).End(xlUp).Row arr = WorksheetFunction.Transpose(.Range("H1:H" & L).Value) End With DerText = Replace(Application.Trim(Join(arr, " ")), " ", "; ") Set IE = CreateObject("HTMLfile") IE.ParentWindow.ClipboardData.SetData "text", vbNullString & DerText Set IE = Nothing End Sub

Hallo Henner,
ich muß den Verweis setzen.
Aber ich habe kein XL 2003, getestet auf XL 2000.
Wie das mit Verweisen ist wenn du die Mappe an Fremdrechner schickst weiß ich nicht.
Hajo sagte ja daß Verweise an die datei geheftet sind.
Das kann ich nicht ausreichend genug deuten.
Nach Extras---Verweise siehst ja die Liste der Verweise die du anhaken kannst bzw. über
Durchsuchen noch neue dazu bringen kannst.
Markierst du einen Verweis so siehst du unten den Pfad/dateinamen
Beim Verweis Microsoft Forms 2.0 Object Library ist es bei mir
C:\windows\system32\fm20.dll
Jetzt weiß ich nicht ob der Inhalt der .dll an die Mappe "geheftet" ist oder die Mappe nur den
Text-Eintrag "C:\windows\system32\fm20.dll" hat.
Was im letzteren Fall natürlich kracht wenn die .dll einen anderen Pfad hat.
Deshalb habe ich den Betreff geändert und Frage auf noch offen gestellt.
FrOstern
Reinhard

Beliebteste Forumthreads (12 Monate)

	A	B
1	Email@Emfänger1
2	Email@Emfänger2
3	Email@Emfänger3
4	Email@Emfänger4
5	Email@Emfänger5
6	Email@Emfänger6
7	Email@Emfänger7
8	Email@Emfänger8
9	Email@Emfänger9
10	Email@Emfänger10
11

Zeileninhalte mit Komma trennen (VBA)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeileninhalte mit Komma trennen (VBA)

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread