Ich hoffe, jemand kann mir mit meinem Problem helfen. Grundsätzlich habe ich eine Reihe von Bereichen, die ich unabhängig verketten muss und die Werte der verketteten Bereiche in verschiedene Zellen setzen. Zum Beispiel möchte ich: Werte im Bereich A1: A10 verketten und das Ergebnis in F1 setzen dann möchte ich den Bereich B1 verketten: B10 und das Ergebnis in F2 setzen dann möchte ich den Bereich C1 verketten: C10 und setzen das Ergebnis in F3 usw.Verketten Sie mehrere Bereiche mit vba
Ich habe versucht, folgenden Makro zu verwenden. Aber ich bleibe stecken. Was das Makro zu tun scheint, ist die Verkettung von Bereich A1: A10 und dann das Einfügen der Ergebnisse in F1 (was ich will). Es speichert jedoch auch die Information von der ersten Verkettung in den Speicher, so dass, wenn es die nächste Verkettung ausführt, in Zelle F2 die verketteten Ergebnisse von F1 und F2 verbunden werden.
Ich habe versucht, viele Foren zu suchen, aber da dies ein Code ist, den ich selbst gemacht habe, kann ich keine Lösung finden, ich bin mir sicher, dass dies ein häufiges Problem ist und ich etwas falsch mache, möglicherweise die Variable nicht richtig setzen .
Vielen Dank im Voraus für Ihre Hilfe,
Sub concatenate()
Dim x As String
Dim Y As String
For m = 2 To 5
Y = Worksheets("Variables").Cells(m, 5).Value
'Above essentially has the range information e.g. a1:a10 in sheet variables
For Each Cell In Range("" & Y & "") 'i.e. range A1:A10
If Cell.Value = "" Then GoTo Line1 'this tells the macro to continue until a blank cell is reached
x = x & Cell.Value & "," 'this provides the concatenated cell value
Next
Line1:
ActiveCell.Value = x
ActiveCell.Offset(1, 0).Select
Next m
End Sub
Kurz vor 'Weiter einfache Erklärung einfügen M':' x = "" ' –
Oh, du Genie! Ich habe meinen ganzen Tag damit verschwendet! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! Vielen Dank! – user2259146