Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range als String auslesen

Range als String auslesen
18.11.2007 11:26:33
Joachim
Hallo Excel-User,
ich möchte ein Range [ Quellbereich = Range("A1:N500") ]
in einen String ausgeben und dabei eben nicht über die langsame Schleife
String = String & cells(iRow, iCol) gehen.
Gibt es eine Möglichkeit zB. String = Quellbereich.Text ?
Für Antworten im Voraus vielen Dank
Joachim

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range als String auslesen
18.11.2007 11:54:44
Daniel
Hi
so ne möglichkeit wäre mir nicht bekannt.
was geht und deutlich schneller ist, wäre den Inhalt des Range-Bereiches in eine Array-Variable zu kopieren und dann die Felder der Array-Variable per Schleife zum String zusammen zu setzen.
ist zwar vom Code her fast das gleiche, aber deutlich schneller:
sieht dann in etwa so aus:

dim arrBereich
dim x as long, y as long
dim Text as string
arrbereich = range("A1:N500").value
for x = 1 to ubound(arrBereich,1)
for y = 1 to Ubound(arrbereich,2)
Text = Text & arrBereich(x,y)
next y
next x


Gruß, Daniel

Anzeige
AW: Range als String auslesen
19.11.2007 15:45:31
Reinhard
Hi Joachim,

Option Explicit
Dim Daten As New DataObject
Sub Einlesen()
Dim S As String, T As String
Range("A1:N500").Copy
Daten.GetFromClipboard
T = Join(Split(Daten.GetText(1), Chr(13) & Chr(10)), ",")
T = Join(Split(T, Chr(9)), ",")
Application.CutCopyMode = False
MsgBox T
End Sub


Wegen Split und Join erst ab Xl2000 lauffähig.
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige