Guten Morgen miteinander

Ich stehe wieder einmal an beim VBA programmieren...
Und zwar sollte ich folgendes machen: Da ich jetzt ziemlich langen Code habe, der recht unübersichtlich ist, will ich einen Vorgang, der vier Mal ausgeführt wird und immer separat in einer Funktion ist, in eine einzige solche packen. Dazu muss ich natürlich Variabeln übergeben, dass das geht. Unter Anderem auch die Tabelle, in der der Code ausgeführt werden soll, also zum Beispiel "Tabelle2" damit ich in der Funktion dann "Tabelle2.Activate" oder so erhalte, aber das Tabelle2 muss Variabel sein. Ich habe es schon mit einigen Datentypen probiert, es ging auch ein paar Mal, aber dan blieb es hier hängen: "If Tabelle2.Cells(zahl, 1) = "" Then ..."
Was soll das? Ich weiss echt nicht mehr, was ich tun soll, möchte diesen Code endlich übersichtlicher und wenn dies in einer Funktion ist, muss ich nicht an vier Stellen was ändern, sondern nur an einer (weniger Arbeitsaufwand).

Hoffe ihr versteht mich

guete morge

Die Tabelle2 könntest du als "object" (also <b>as object</b>) dieser Funktion als Parameter übergeben. Was erhälst du für eine Fehlermeldung wenn du diesen Code ausführst <code>"If Tabelle2.Cells(zahl, 1) = "" Then ..."</code>.

gruss

btw. Kennst du die Mad Dogs Dulliken ?

Wenn ich die Tabelle als Objekt übergebe, kommt "Laufzeitfehler 13: Typen unverträglich".
Wie muss ich die Tabellennummer der zu übergebenden "Variable" zuweisen?

Und ja, ich kenne die Mad Dogs Dulliken, ein Kollege spielt dort Streethockey...

Habe es nun soweit geschafft, dass die Tabelle übergeben wird. Nun sollte ich noch den Namen des zu verwendenden Arrays übergeben, das global deklariert ist... Weiss jemand, wie ich das machen soll?

Darf ich fragen, wie Du es nun gemacht hast, dass die Tabelle übergeben wird?

Natürlich darfst du das
Ich habe in einem anderem Forum nachgefragt und folgende Antwort erhalten:

<code>Public Sub test(TabStr As String)

Dim TabObj As Worksheet
Set TabObj = Application.Worksheets(TabStr)

TabObj.Cells(1, 1) = "Hallo, ich bin " & TabStr

Set TabObj = Nothing

End Sub

Public Sub t1()

test ("Tabelle1")
test ("Tabelle2")
test ("Tabelle3")

End Sub</code>

Bräuchte das mit dem Arraynamen übergeben ziemlich dringend, möchte diesen Schritt abschliessen, damit ich weiter machen kann...

Weiss niemand, wie das geht

Habe es nun anders gemacht... Und zwar habe ich alles in ein einziges Array genommen... Hat wunderbar geklappt und habe nun den ersten Schritt fertig *freu*