Clever-Excel-Forum

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

Selection. statt ActiveCell.

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

Hi LCohen

Das funktioniert leider nicht :/

Die Werte werden immer noch vertikal angezeigt.

LG

(0, 1) statt (1, 0)

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

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

Krplnci

LCohen

Krplnci

LCohen

Elex