Inhalt mehrerer Zellen als Variable speichern und

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub test() Dim var As String Dim wks As Worksheet Dim wkb As Workbook Set wkb = ThisWorkbook Set wks = wkb.Sheets("Tabelle1") var = SpeichereZellen(wks, "A1:C1") Call LadeZelle(wks, "D1:D3", var) End Sub Function SpeichereZellen(ByVal wks As Worksheet, ByVal rngstr As String) As String Dim Retstr As String Dim rng As Range Dim Zelle As Object Set rng = wks.Range(rngstr) For Each Zelle In rng Retstr = Retstr & Zelle.Value & "," Next SpeichereZellen = Left(Retstr, Len(Retstr) - 1) End Function Function LadeZelle(ByVal wks As Worksheet, ByVal rngstr As String, ByVal strMerke As String) Dim rng As Range Dim Zelle As Object Dim arr() As String Dim i As Integer arr = Split(strMerke, ",") Set rng = wks.Range(rngstr) i = 0 For Each Zelle In rng If i

Hallo reiner,
dadurch das das array verwendet wird, kannst du die vba routine split benutzen, die dir einen String in Teilstrings aufteilt und diese dann in einem array liefert.
Du kannst natürlich auch bei der String Variablen var bleiben, nach einem "," suchen dan nmit mid den string ausscheiden, in die zelle schreiben und dann in der Variable var das nächste komma suchen und wieder ausschniden und speichern. Das sit das was split für dich übernimmt, nur eben liefert es dir ein Array (weil niemand zum Zeitpunkt des Programmierens weiß wiviel Elemente in deienm String drin sind.
Es geht beides, aber ob das andere wirklich einfacher ist, lass ich jetzt mal so dahingestellt.
Schau dir im debugger die einzelnen variablen an und versuch es zu verstehen.
Ansonsten braucht du Instr um das komma zu finden und Mid mit anfang und endposition zum ausschneiden, kannst du gern ausprobieren (einen lerneffekt hast du dabei auf jedenfall).
Gruß
yummi

Hallo Reiner,
yummi hat dir ja bereits einen ausgefuchsten Code geliefert!
Wenn du in Sachen Array noch ein bisschen was lernen möchtest, kann ich dir diesen Artikel empfehlen:
https://excelmacromastery.com/excel-vba-array/
Ich habe hier noch eine simplere Umsetzung für dich.

Option Explicit
Sub BspArray()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
' myArray als Variable vom Typ Variant deklarieren
' Werte aus Range() dem Array zuweisen
Dim myArray As Variant
myArray = ws.Range("A1:C1").Value
' Daten wieder einfügen
' Dafür muss der Bereich (Range) die gleiche Größe und Anordnung wie das Array haben.
' hier wird die Größe des Zielbereiches dynamisch ermittelt.
' Daten horizontal einfügen
ws.Range("A4").Resize(UBound(myArray, 1), UBound(myArray, 2)) = myArray
' Daten vertikal einfügen
ws.Range("A10").Resize(UBound(myArray, 2), UBound(myArray, 1)) = Application. _
WorksheetFunction.Transpose(myArray)
End Sub

VG, Christian

Beliebteste Forumthreads (12 Monate)

Inhalt mehrerer Zellen als Variable speichern und

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt mehrerer Zellen als Variable speichern und

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread