Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Tabellenbereiche per VBA Verschachteln
#11
(24.02.2015, 14:26)Max schrieb: Damit Du dierekt in die erste Zeile Spalte GE schreibst, musst Du nur die Codezeile


Code:
fz = ws.Cells(Rows.Count, 187).End(xlUp).Row + 1
gegen diese ersetzen


Code:
fz = ws.Cells(Rows.Count, 187).End(xlUp).Row
Gruß
Max

hallo Max,

nein das geht eben nicht - dachte ich mir auch
wenn die +1 entfernt wird, dann schreibt er alle Zellen aus der Spalte A nach GE


hallo chris-ka,
Laola

das war die Endlösung von dir "Gott sei Dank"
Super gelöst von dir

Thumbsupsmileyanim



Danke nochmals
LG
Angelina
Antworten Top
#12
Hi,

aber gerne Doch

Alternativ über Arrays


Code:
Sub Verschachteln()
  Dim ws As Worksheet, i As Long, fz As Long, r1 As Range, r2 As Range, r3 As Range, Index As Long
  Dim Arr1, Arr2, Arr3
  Set ws = ThisWorkbook.Worksheets("F")
  Set r1 = ws.Range("GG1:GG100")
  Set r2 = ws.Range("GF1:GF100")
  Set r3 = ws.Range("Ge1:Ge200")
  Arr1 = r1
  Arr2 = r2
  Arr3 = r3
  Index = 1
  With ws
      For i = 1 To UBound(Arr1)
           Arr3(Index, 1) = Arr1(i, 1)
           Arr3(Index + 1, 1) = Arr2(i, 1)
           Index = Index + 2
      Next
  End With
  r3.Value = Arr3
End Sub

Code ist zwar länger aber dafür schneller :)
lg Chris
Feedback nicht vergessen.
[Bild: v.gif]
3a2920576572206973742064656e20646120736f206e65756769657269672e
[-] Folgende(r) 1 Nutzer sagt Danke an chris-ka für diesen Beitrag:
  • Angelina
Antworten Top
#13
(24.02.2015, 14:42)Angelina schrieb: ...
hallo Max,

nein das geht eben nicht - dachte ich mir auch
wenn die +1 entfernt wird, dann schreibt er alle Zellen aus der Spalte A nach GE

...

Jupp sorry,

das war quatsch.

Gruß
Max
Antworten Top
#14
(24.02.2015, 14:50)chris-ka schrieb: Hi,

aber gerne Doch

Alternativ über Arrays



Code:
Sub Verschachteln()
  Dim ws As Worksheet, i As Long, fz As Long, r1 As Range, r2 As Range, r3 As Range, Index As Long
  Dim Arr1, Arr2, Arr3
  Set ws = ThisWorkbook.Worksheets("F")
  Set r1 = ws.Range("GG1:GG100")
  Set r2 = ws.Range("GF1:GF100")
  Set r3 = ws.Range("Ge1:Ge200")
  Arr1 = r1
  Arr2 = r2
  Arr3 = r3
  Index = 1
  With ws
      For i = 1 To UBound(Arr1)
           Arr3(Index, 1) = Arr1(i, 1)
           Arr3(Index + 1, 1) = Arr2(i, 1)
           Index = Index + 2
      Next
  End With
  r3.Value = Arr3
End Sub

Code ist zwar länger aber dafür schneller :)

hallo,
ja - da geht die Post ab.

Nochmals danke für diese tolle Arbeit

LG
Angelina
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste