VBA Spalten verketten

[PhilippB.]

Hallo,

eine Frage hätte ich. Ich möchte ab Zeile 6 bis end die Spalte C und B in A verketten.
Habe dazu folgenden Code:
 
Sub verketten()
 
Dim str As String
Dim i As Long
Dim z As Long
 
With Worksheets("Stammdaten")
For z = 1 To .Cells(Rows.Count, 6).End(xlUp).Row
    For i = 2 To 3
        str = str & .Cells(z, i).Value & ", "
    Next i
    .Cells(z, 1).Value = str
Next z
End With
End Sub
 
Quasi soll die Varibale i von 3 to 2 laufen und in 1 ausgeben. Es läuft aber noch nicht
 
Hast jemand da eine Idee?
 
Gruß,
 
Philipp

[BoskoBiati]

Hi,

wie wäre es damit:

Code:

For i = 2 To 3
   str =  .Cells(z, i) & ", " & Str

[Crazy Tom]

Hallo

mein Vorschlag

Code:

Sub verketten()
Dim z As Long

With Worksheets("Stammdaten")
   For z = 1 To .Cells(.Rows.Count, 6).End(xlUp).Row
       .Cells(z, 1).Value = .Cells(z, 3) & ", " & .Cells(z, 2)
   Next z
End With

End Sub

MfG Tom

[PhilippB.]

Vielen Dank,

das funktioniert. Geht es auch "automatisch" ohne extra den makror auslösen zu müssen?

[BoskoBiati]

Hi,

mit Formeln?

Code:

=C1&", "&B1

[PhilippB.]

mit Formeln wollte ich es nicht machen. ich gebe eine wert in spalte B und Spalte C ein und über den vba Code, wird dies automaitsch in Splate A verkettet! Das geht nicht oder?

[PhilippB.]

Habe es mit folgenden Code hinbekommen:

Private Sub CommandButton2_Click()
TextBox1.Value = TextBox3.Value & "_" & TextBox2.Value

End Sub

[Crazy Tom]

Hallo


hm...... da hätten wir natürlich auch drauf kommen können *HandvorKopfhau*

MfG Tom

[PhilippB.]

Hallo


hm...... da hätten wir natürlich auch drauf kommen können *HandvorKopfhau*

MfG Tom

Sorry...