Clever-Excel-Forum

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

Hi,

wie wäre es damit:

Hallo

mein Vorschlag

MfG Tom

Vielen Dank,

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

Hi,

mit Formeln?

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?

Habe es mit folgenden Code hinbekommen:

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

End Sub

Hallo


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

MfG Tom

(02.05.2017, 17:06)Crazy Tom schrieb: [ -> ]Hallo


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

MfG Tom

Sorry...