ich möchte über einen CommandButton den Druck von bestimmten Daten, welche sich in einem anderen Tabellenblatt in der gleichen Datei befinden, anstoßen.
Dies sieht auszugsweise so aus:
Routine im aktiven Tabellenblatt (z.B. Tabelle 2):
Private Sub CommandButton1_Click()
Call TR
End Sub
Routine im Modul1:
Sub TR()
On Error GoTo Fehler
Sheets("Tabelle1").Activate 'aus bestimmtem Blatt
Dim SP As Integer, ZE As Integer, LR As Integer, TB1 , Zelle, Anzahl%, Produkt$, Charge$, WertA1$, WertA2$, WertA3$, WertB1$, WertB2$, WertB3$, WertA$, WertB$, TRA$, TRB$, TR$, i As Integer
Set TB1 = ActiveWorkbook.Sheets("Tabelle1") 'aus bestimmtem Blatt
i = 0
Anzahl = Cells(2, 7) 'Anzahl der geprüften Chargen
Produkt = "A2" 'Definition der Zellbezüge
Charge = "C2"
.
.
.
For i = 0 To Anzahl - 1 'Druckschleife in Abhängigkeit der Chargenanzahl
SP = 8 'Startspalte der Druckdaten
ZE = 2 + i 'Startzeile der Druckdaten
TB1.Range(Produkt) = Cells(ZE, SP) 'Zuordnung der Zellbezüge
TB1.Range(Charge) = Cells(ZE, SP + 1)
.
.
.
.
.
ActiveWindow.SelectedSheets.PrintOut Copies:=1 ' Druckbereich ausdrucken
Next
Fehler: 'Fehlerbehandlung
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Sheets("TR_Asche Glührückstand").Activate
End Sub
Problem ist nun das bei der Zeile:
TB1.Range(Produkt) = Cells(ZE, SP)
das Programm mit Fehler 1004 aussteigt.
Ich bermute das es mit der DIM oder Set-Funktion zu TB1 zusammenhängt, komme aber nicht weiter.
Könnt Ihr mir helfen?
Gruß
Hermann