VBA Range

[Florian20]

Hallo liebes Forum,

Ich habe mein Problem von gestern lösen können.
Nun habe Ich aber ein anderes :16:

Ich habe ein Array das 8 Strings enthält die mit Split getrennt werden. 'das Klapp auch
nur werden die einzelnen Arrays in der Tabelle nach unten geschrieben Stadt nach rechst.

Also von A2 bis H soll die Eingabe erfolgen.
und nicht von A2 bis A9

Hier mein Code:

Sub test()
Dim lngLastRow
Dim i As Integer
Dim vArray As Variant

lngLastRow = Cells(Rows.Count, 1).End(xlUp).row          'Hier oder Unten ist das Problem
vArray = VBA.Split(BuchungAnzeige1, "/")

For i = 0 To UBound(vArray)
  Cells(lngLastRow + i, 2).Offset(1, 1) = vArray(i)
   Call test2
    Next i
End Sub

Lg Flo

[Elex]

Hallo,

Cells(Zeile, Spalte)

wenn du nach rechts möchtest ändere durch (i) in Cells(lngLastRow + i, 2).Offset(1, 1) = vArray(i) die Spalte und nicht die Zeile.

Gruß Elex

[Florian20]

Hallo,

Also Ich bekomme es einfach nicht hin
Kannst du mir den Code zeigen stehe grad voll auf dem schlauch.

lg flo

PS.
was Ich hinbekommen habe war Range("A2:H2") = vArray
da hat es so geklappt wie Ich wollte aber halt nur für eine zeile.
und er ist nicht nach unten.

[Kuwer]

Hallo Flo,

Sub test()
  Dim lngLastRow As Long
  Dim vArray As Variant
  
  lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  vArray = VBA.Split("a/b/c/d/e/f", "/")
  
  Cells(lngLastRow + 1, 1).Resize(1, UBound(vArray) + 1) = vArray
End Sub

Gruß Uwe

[Florian20]

Supppperrr danke schön :18:
 so Bl**d auch von mir :16: