Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle A1, A2, A3, A.....

    Betrifft: Zelle A1, A2, A3, A..... von: Remo
    Geschrieben am: 29.08.2003 14:12:02

    Ich möchte in meinem Programm die Zellen A1 bis A10000 nach dem selben Prinzip auswerten.
    Wie kann ich dies (ev mit einer for-schleife) lösen..?!

      


    Betrifft: AW: Zelle A1, A2, A3, A..... von: Hajo_Zi
    Geschrieben am: 29.08.2003 14:15:34

    Hallo Remo

    Ei Hallo zu Beginn und ein Gruß am Ende läst den Beitrag gleich viel freundlicher aussehen

    Dim InI as Integer
    For InI =1 To 10000
    Cells(InI,1)=InI
    Next InI


    Gruß hajo


      


    Betrifft: @HaJo: Integer->Long von: Michael Scheffler
    Geschrieben am: 29.08.2003 14:16:37




      


    Betrifft: AW: Integer reicht bei 10000 von: Hajo_Zi
    Geschrieben am: 29.08.2003 14:18:35

    Hallo Michael

    für max. Zeilen wäre es ok aber es stand bis 10000 und da reicht integer.

    Gruß Hajo


      


    Betrifft: AW: @HaJo: Integer->Long von: Remo
    Geschrieben am: 29.08.2003 14:29:28

    ok, vielen dank!
    Und wenn ich dann jeweils zum in die selbe zeile der spalte B eine folgerung schreiben möchte?!


      


    Betrifft: AW: Spalte B von: Hajo_Zi
    Geschrieben am: 29.08.2003 14:30:44

    Hallo Remo

    Cells(InI,2)="Test"

    Gruß Hajo


      


    Betrifft: AW: @HaJo: Integer->Long von: Remo
    Geschrieben am: 29.08.2003 14:36:37

    Habs herausgefunden.

    Merci


      


    Betrifft: AW: for i=1 to 1000... von: Nike
    Geschrieben am: 29.08.2003 14:15:39

    Hi,

    for i = 1 to 1000
    msgbox = cells(i,1).value
    next

    Bye

    Nike


      


    Betrifft: AW: Zelle A1, A2, A3, A..... von: Michael Scheffler
    Geschrieben am: 29.08.2003 14:15:39

    Hi,

    Dim lngZeile As Long
    For lngZeile = 1 To 1000
    Debug.Print Cells(lngZeile, 1).Value
    Next lngZeile

    Gruß

    Micha