ich habe folgenden Code für eine ClickBox generiert. In einer Test-Mappe (die zugrunde liegende Tabelle hab ich in diese Testmappe kopiert) funktioniert dieser Code.
Für die richtige Datei funktioniert er nicht...
ActiveSheet.Range(Cells(z, 1), Cells(z, s)).Select - gibt mir einen "Anwendungs- oder Objektdefinierten Fehler"
Private Sub HW_Click()
Dim s, z, zp
s = 0
zp = 1
Do
s = s + 1
Loop Until Sheets("HrdwData").Cells(1, s).Value = "NetScreen 204"
Sheets("HrdwData").Select
s = 6
For z = 2 To 22
If Not (IsEmpty(Sheets("HrdwData").Cells(z, s))) Then
Sheets("HrdwData").Select
ActiveSheet.Range(Cells(z, 1), Cells(z, s)).Select
'ActiveSheet.Range("A" & z).Select
Selection.Copy
ActiveSheet.Range("AA" & zp).Select
ActiveSheet.Paste
zp = zp + 1
End If
Next