Code funkt nicht

Bild

Betrifft: Code funkt nicht
von: golem
Geschrieben am: 05.11.2003 09:03:51

Hallo,
habe gestern Code gepostet bekommen der leider nicht so ganz klappt.


Sub test()
Dim i%
For i = 10 To 80
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Tabelle" & i Then
           Cells(1, 1).Value = "1"
        End If
    Next
Next
End Sub


Es soll in den Tabellenblättern 10 bis 80 eine Zahl reingeschrieben werden, hier einfachheitshalber eine 1.
Es wird leider nur beim gerade aktiven workbook gemacht...
Bild


Betrifft: AW: Code funkt nicht
von: Andreas Walter
Geschrieben am: 05.11.2003 09:07:09

Cells(1, 1).Value = "1"
sagt aus
setz mal A1 IM JETZIGEN BLATT

Versuch mal
ws.Cells(1, 1).Value = "1"


Bild


Betrifft: es funkt! ich liebe dieses Forum! o.T.
von: golem
Geschrieben am: 05.11.2003 09:10:11




Bild


Betrifft: AW: Code funkt nicht
von: Galenzo
Geschrieben am: 05.11.2003 09:18:48

Hallo,
teste mal diesen:


Private Sub test()
Dim i%
    For i = 10 To 80
        Worksheets("Tabelle" & CStr(i)).Cells(1, 1).Value = 1
    Next
End Sub

Der schreibt dir in "Tabelle10" bis "Tabelle80" immer die "1" in Zelle A1.
Dazu wird in der 4. Zeile der Tabellenblattname aus zwei Teilen zusammengesetzt:
Der erste Teile ist dabei "Tabelle" und der zweite Teil ist dann die Zahl von 10 bis 80, die mit der Funktion CStr vorher noch schnell in einen String umgewandelt wird.

Viel Erfolg!


Bild


Betrifft: AW: Code funkt nicht
von: golem
Geschrieben am: 05.11.2003 09:44:49

ich danke Dir für schnelle&gute Hilfe!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zahlen verändern sich"