ich habe folgendes Problem:
Dim sheet As String
For p = 3 To 51
If Sheets("Back-End").Cells(p, 3) "" And Sheets("Back-End").Cells(p, 3) 0 Then 'Dient dazu leere Zellen bzw. Nullzellen zu überspringen
sheet = Sheets("Back-End").Cells(p, 3) 'Hier stehen Namen, die auch als Blattnamen vorhanden sind
Sheets("Ausgabe").Cells(p,2)=Sheets(sheet).cells(1,1)
End If
Next p
Leider funktioniert die Ansteuerung von Sheets über einen String scheinbar nicht. Weiß jemand abhilfe?
Liebe Grüße,
Philipp