nach vielen erfolglosen Versuchen wollte ich euch gerne um Hilfe bitten. Ich habe bestimmte Zellen in Excel mit einem Makro verknüpft. Ziel ist es von allen Werten aus der Liste jeweils einen in einen String-Datentyp zu speichern. In meinen ersten Versuchen wurde nur der letzte Wert ausgegeben. Jetzt gibt er gar keinen Wert mehr aus. Das ist mein Teilskript:
Dim Wert(50) As String
Dim Spalte As Integer
Dim Zeile As Integer
Dim i As Integer
Dim Einzelwert As Integer
Dim j As Long
Dim Found As Boolean
Dim Such As String
For Spalte = 1 To 10
For Zeile = 2 To 6
For i = 0 To 50
If Wert(i) = Worksheets("Tabelle1").Cells(Zeile, Spalte).Value Then
Exit For
ElseIf Wert(i) Worksheets("Tabelle1").Cells(Zeile, Spalte).Value Then
For j = 0 To UBound(Wert)
If Wert(j) = Such Then
Found = True
Exit For
End If
Next j
If Found = True Then
Exit For
Found = False
ElseIf Found = False Then
Wert(i) = Worksheets("Tabelle1").Cells(Zeile, Spalte).Value
End If
Found = False
End If
Next i
Next Zeile
Next Spalte
Ich wäre sehr dankbar über eine hilfreiche Antwort.
Viele Grüße
Flo