dieser Code soll lediglich Spalte A zählen, Spalte B zählen und dann Spalte A und Spalte B in Spalte C schreiben. hier bringt er immer einen Fehler.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim k As Integer
Dim h As Integer
Dim suchwort As String
Dim suchwort2 As String
For i = 1 To UsedRange.Rows.Count
suchwort = Cells(i, 1).Value
For k = 1 To UsedRange.Rows.Count
suchwort2 = Cells(k, 2).Value
Cells(i, 1).Offset(0, 3).Value = "='" & suchwort & "[" & suchwort2 & "]Formblatt'!H9"
Next k
Next i
End Sub
Wer weiß hier Rat?
Gruß Slugger