Ich peile es nicht!!! :confused:
Manoman!!!! Ich doof!
Also iche gebe das:
text1 = Sheets("Tablestyle").Cells(c, 2) ein
und er mäckert wieder, naja egal
scheinbar möchte er es so:
text1 = "Sheets(Tablestyle).Cells(c, 2)"
Ok egal!
Ich will immer den gleichen Text dazwischen, dann müsste ich das
doch so machen:
Private Sub test()
Dim text1 As String
Dim text2 As String
Dim text21 As String
Dim text22 As String
Dim meinsuchtext As String
Dim n As Integer
meinsuchtext = "styleblack"
For a = 1 To 3000 '
text1 = "Sheets(Tabelle1).Cells(a, 2)"
text2 = "Sheets(Tabelle1).Cells(a, 3)"
n = InStr(1, text2, meinsuchtext, 1)
If n > 0 Then
text21 = Left(text2, n - 1)
text22 = Mid(text2, n + Len(meinsuchtext), Len(text2) - n)
Sheets("Tabelle1").Cells(a, 3) = text21 + text1 + text22
Sheets("Tabelle1").Cells(a, 2) = ""
End If
Next a
End Sub