15.04.2020, 11:12
Hallo,
ich brauche etwas Hilfe, da ich noch nicht allzu sicher im Umgang mit VBA bin.
Hier meine Anliegen:
In meiner Tabelle "Datenbank" brauche ich einen Code zur Verkettung von Zellen, die in einer anderen Zellen wiedergegeben wird.
In den Spalten "D" ab Zeile "D2:D37" stehen die Nachnamen und in den Spalten "E" ab "E2:37" die Vornamen. Nun sollen die Nachnamen und Vornamen mit Komma in der Spalte "A" ab "A2:A37" automatisch wiedergegeben werden, wenn sich etwas ändert in Spalte "D" und "E".
Habe mir auch schon eine Code gebaut, der soweit funktioniert, aber nur wenn ich ihn in Moment über eine Schaltfläche auslöse.
Hier mein Code bisher:
Sub verketten()
Dim str As String
Dim i As Long
Dim z As Long
With Worksheets("Datenbank")
For z = 2 To 37
For i = 4 To 5
str = .Cells(z, 4) & ", " & .Cells(z, 5)
Next i
.Cells(z, 1).Value = str
Next z
End With
End Sub
Ich denke mir, dass es mit
"Private Sub Worksheet_Change(ByVal Target As Range)"
beginnen muss, aber weiter komme ich gerade nicht. Muss ich noch etwas mit "If Target.." einbauen?
Wie gesagt ich bin noch nicht so sicher im Umgang mit VBA.
Ich hoffe ihr habt eine Lösung für mich
Schön Tag Euch allen
ich brauche etwas Hilfe, da ich noch nicht allzu sicher im Umgang mit VBA bin.
Hier meine Anliegen:
In meiner Tabelle "Datenbank" brauche ich einen Code zur Verkettung von Zellen, die in einer anderen Zellen wiedergegeben wird.
In den Spalten "D" ab Zeile "D2:D37" stehen die Nachnamen und in den Spalten "E" ab "E2:37" die Vornamen. Nun sollen die Nachnamen und Vornamen mit Komma in der Spalte "A" ab "A2:A37" automatisch wiedergegeben werden, wenn sich etwas ändert in Spalte "D" und "E".
Habe mir auch schon eine Code gebaut, der soweit funktioniert, aber nur wenn ich ihn in Moment über eine Schaltfläche auslöse.
Hier mein Code bisher:
Sub verketten()
Dim str As String
Dim i As Long
Dim z As Long
With Worksheets("Datenbank")
For z = 2 To 37
For i = 4 To 5
str = .Cells(z, 4) & ", " & .Cells(z, 5)
Next i
.Cells(z, 1).Value = str
Next z
End With
End Sub
Ich denke mir, dass es mit
"Private Sub Worksheet_Change(ByVal Target As Range)"
beginnen muss, aber weiter komme ich gerade nicht. Muss ich noch etwas mit "If Target.." einbauen?
Wie gesagt ich bin noch nicht so sicher im Umgang mit VBA.
Ich hoffe ihr habt eine Lösung für mich
Schön Tag Euch allen