Registriert seit: 28.01.2015
Version(en): 2007 und 2010
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
Registriert seit: 13.04.2014
Version(en): 365, 2019
02.05.2017, 13:38
(Dieser Beitrag wurde zuletzt bearbeitet: 02.05.2017, 13:39 von BoskoBiati.)
Hi,
wie wäre es damit:
Code:
For i = 2 To 3
str = .Cells(z, i) & ", " & Str
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 12.04.2014
Version(en): Office 365
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
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
Vielen Dank,
das funktioniert. Geht es auch "automatisch" ohne extra den makror auslösen zu müssen?
Registriert seit: 13.04.2014
Version(en): 365, 2019
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
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?
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
02.05.2017, 16:06
(Dieser Beitrag wurde zuletzt bearbeitet: 02.05.2017, 17:30 von WillWissen.
Bearbeitungsgrund: Mikroschriftformatierung aufgehoben
)
Habe es mit folgenden Code hinbekommen:
Private Sub CommandButton2_Click()
TextBox1.Value = TextBox3.Value & "_" & TextBox2.Value
End Sub
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo
hm...... da hätten wir natürlich auch drauf kommen können *HandvorKopfhau*
MfG Tom
Registriert seit: 28.01.2015
Version(en): 2007 und 2010
(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...