Text zur vorhandenen Zwischenablage hinzufügen
17.01.2005 10:44:30
Stefan
mit einer Schleife möchte ich Daten in die Zwischenablage kopieren.
Bei einem Eintrag geht das auch. Aber bei mehreren wird immer nur der letzte Eintrag gespeichert. Ich möchte aber den bereits vorhandenen Text + dem neuen Text speichern.
Geht das ?
...
LAH = LAH + 1
suchzeile = Cells(zeile, 8)
firma(LAH) = Sheets("Anschriften Lieferanten").Cells(suchzeile + 1, 2)
Anspr(LAH) = Sheets("Anschriften Lieferanten").Cells(suchzeile, 4)
straße(LAH) = Sheets("Anschriften Lieferanten").Cells(suchzeile, 5)
Ort(LAH) = Sheets("Anschriften Lieferanten").Cells(suchzeile, 7)
For LAN = 8 To 22
ClipAbLage.SetText firma(LAN) & Chr(10) & straße(LAN) & Chr(10) & Ort(LAN)
ClipAbLage.PutInClipboard
Next
Ich danke für Eure Ideen.
Gruß Stefan