VBA: Werte vertikal wiedergeben

[Krplnci]

Hallo zusammen 

Ich habe ein Makro programmiert, welche mir die Werte in ein anderes Tabellenblatt transferiert. 

Das klappt alles super, das einzige Problem ist, die Werte werden vertikal transferiert, statt horizontal. 

Hier mein Code: 

Private Sub CommandButton2_Click()

Dim Modell As String, Chassi As String, Proposal As String, Liefertermin As String, Lieferadresse As String, Abholung As String
Worksheets("Template").Select

Modell = Range("B18")
Chassi = Range("C18")
Proposal = Range("B15")
Liefertermin = Range("B41")
Abholung = Range("C41")
Lieferadresse = Range("E41")
Worksheets("Übersicht").Select
Worksheets("Übersicht").Range("A1").Select

If Worksheets("Übersicht").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Übersicht").Range("A1").End(x1Down).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Modell
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Chassi
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Liefertermin
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Abholung
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Lieferadresse
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Proposal


End Sub

-> Kann ich ein Befehl hier codieren? oder muss ich alles von neu an programmieren? 

Danke für eure Hilfe! 

LG krplnci

[LCohen]

Selection. statt ActiveCell.

Aber Du brauchst den Cursor nicht Gassi zu führen.

[Krplnci]

Hi LCohen 

Das funktioniert leider nicht :/ 

Die Werte werden immer noch vertikal angezeigt. 

LG

[LCohen]

(0, 1) statt (1, 0)

Hatte ich auch zuerst so geschrieben, bin aber dann irgendwie gestolpert.

[Elex]

Hi

ActiveCell.Offset(1, 0)  ändern in ActiveCell.Offset(0, 1)

oder mal den Code versuchen.

Code:

Private Sub CommandButton2_Click()
Dim ArrCopy

With Sheets("Template")
                   'Modell,       Chassi,       Liefertermin,    Abholung,    Lieferadresse,  Proposal
  ArrCopy = Array(.Range("B18"), .Range("C18"), .Range("B41"), .Range("C41"), .Range("E41"), .Range("B15"))
End With

With Sheets("Übersicht")
  .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(, 6) = ArrCopy
End With

End Sub

Gruß Elex