✔ Schleifen in VBA

[tombe]

Ok, neuer Versuch. Von wo bzw. wie wird das Makro aufgerufen?

 

[HonniCilest]

Ich weiß ja nicht mit welcher Office-Version ihr arbeitet, aber mir ist nicht bekannt (ich arbeite mit 2003), dass sich Tabellen als Objekt Ihrer selbst ansprechen lassen. Statt "Tabelle7" muss es immernoch heißen

ActiveWorkbook.Worksheets("Tabelle7")

 

[tombe]

Häää ? ? ?

Also wenn ich den obigen Code bei mir entweder in den Codebereich des Tabellenblattes (egal ob das eigene oder eine andere), der Arbeitsmappe oder in ein Modul eingebe, läuft es ohne irgendwelche Probleme.

 

[HonniCilest]

ActiveWorkbook kann man auch weglassen, aber so müsste es dann aussehen:

Sub PlantEinfuegen()
    Dim zeile
    zeile = 1
    While Worksheets("Tabelle7").Cells(zeile, 1) <> ""
        Worksheets("Tabelle7").Cells(zeile, 10) = "Dortmund"
        zeile = zeile + 1
    Wend
End Sub

Wo sollen da Probleme auftreten?

 

[tombe]

... dass sich Tabellen als Objekt Ihrer selbst ansprechen lassen. Statt "Tabelle7" muss es immernoch heißen

ActiveWorkbook.Worksheets("Tabelle7")

Ich sage nicht das es mit deinem Beispiel Probleme gibt (das kann sogar die Lösung sein). Ich behaupte nur das es bei mir auch dann geht wenn der Name des Tabellenblattes alleine angegeben wird.

Es muss also irgendwo doch noch etwas geben das sich die beiden Schreibweisen unterscheiden.

 

[HonniCilest]

Es muss also irgendwo doch noch etwas geben das sich die beiden Schreibweisen unterscheiden.

Das habe ich vorhin schon andeuten wollen, die Version, du arbeitest sicher mit einer neueren Version als 2003, oder? Ich vermute, dass starbug auch mit 2003 arbeitet.

 

[tombe]

Ist mir ja fast schon peinlich es zu sagen/zu schreiben aber ich habe hier Office 2000.

Gibt es irgendwo eine Einstellung ähnlich "Variablendeklaration erforderlich" mit der Tabellen "öffentlich" zugänglich gemacht werden?

Und vor allen wo ist starbug um zu berichten ob er sein Problem mit deiner Hilfe lösen konnte.

 

[starbug]

Hallo,

hier binich wieder, ich muss dazu sagen ich mache das alles
nebenbei auf der arbeit also kann es sein das ich mich mal
länger nicht melde. Danke für eure vielen Vorschläge. Es läuft
jetzt auch alles. Übrigens arbeite ich mit Office 2007, vielleicht
gibts da ja irgendwelche unterschiede

 

[starbug]

Aso was ich noch vergessen habe. Für die Lösung habe ich nicht ein
bestimmtes Datenblatt sondern nur das welches im Moment aktiviert ist genommen.
Hier mein Code:

 Dim zeile
        zeile = 2
        While ActiveSheet.Cells(zeile, 3) <> ""
         ActiveSheet.Cells(zeile, 3) = plant
         ActiveSheet.Cells(zeile, 4) = Tag
         zeile = zeile + 1
        Wend

 

[tombe]

Schön wenn es jetzt klappt. Sagst du uns jetzt auch wie du es gelöst hast!?