Tabelle an Unterprogramm übergeben
ing.grohn
in einer Routine arbeite ich unterschiedliche Tabellen ab, vereinbare ein Kürzel (Tab1) für die Tabellen mit Set
(siehe Code). Wenn ich in der With-Klammer ein Unterprogramm aufrufe, wie übergebe ich Tab1 und wie muß diese im Unterprogramm deklariert werden (Im Up werden Zellen der TAb manipuliert)
Sub Test_Tab()
Dim ...
For Each ws In Worksheets
Set Tab1 = Sheets(ws.Name)
With Tab1
Cells(i, K).Value = "123.."
Call Unterprogramm1(Tab1, i, K) 'wie übergebe ich Tab1?
Call Unterprogramm1(Tab1, i, K)
End With
Next
End Sub
Recht herzlichen Dank für eine Antwort
Mit freundlichen Grüßen
Albrecht