ich hab ein kleines Problem, bei dem mir hoffentlich jemand helfen kann.
Ich möchte den Inhalt mehrerer Zellen in einer zusammenfassen. Allerdings nur Zeile für Zeile und mit variabler Anzahl der Spalten, die zusammen gefasst werden sollen. Es ist aber immer ein zusammenhängender Bereich, der auch Leerzellen enthalten kann. Wenn ich als den Bereich A2:O200 angebe, sollen also 200 Zusammenfassungen entstehen.
folgenden Code habe ich bereits:
Sub Makro1()
Cells(1, 17).FormulaR1C1 = VerketteZeile(1, 15, "+%")
Range(A2:O200).FormulaR1C1 = VerketteZeile(1, 15, "+%")
End Sub
Function VerketteZeile(ByVal iStartspalte As Integer, ByVal iEndSpalte As Integer, Optional _
strTrennzeichen As String = ",") as String
'iStartspalte ab dieser Spalte soll es losgehen
'iEndSpalte bis zu dieser Spalte wird zusammen gefasst
'strTrennzeichen Zeichen zwischen den Spalten
Dim i As Integer
Dim strTmp As String
Dim ilenGes As Integer
Dim iLenTrenn As Integer
strTmp = ""
For i = iStartspalte To iEndSpalte
strTmp = strTmp & "RC[" & i & "]" & strTrennzeichen
Next i
ilenGes = Len(strTmp)
iLenTrenn = Len(strTrennzeichen)
strTmp = Left(strTmp, ilenGes - iLenTrenn)
VerketteZeile = strTmp
End Function
Allerdings liefert mir dies noch das falsche Ergebnis:
RC[1]+%RC[2]+%RC[3]+%RC[4]+%RC[5]+%RC[6]+%RC[7]+%RC[8]+%RC[9]+%RC[10]+%RC[11]+%RC[12]+%RC[13]+%RC[14]+%RC[15]
und nicht den Inhalt der jeweiligen Zellen. Ich könnte den Bereich als Range definieren und Zelel für zelle durchlaufen und so an den Inhalt kommen. Allerdings wollte ich damit erreichen, dass wenn ich sehr viele Zeilen (z.B. komplettes Tabellenblatt) beschreiben will, ich nur einen Aufruf machen brauch und excel das als eine Region binnen kürzester Zeit füllt.
Könnt ihr mir den Knoten im Kopf bitte lösen
Danke
yummi