kann eine Schleife die Befehle abarbeiten ?

Forumthread: kann eine Schleife die Befehle abarbeiten ?

24.07.2004 16:00:27

marc

hallo zusammen,
ich will den Code etwas verkuerzen bzw. mit eine Schleife abarbeiten
wer kann mir behilflich sein.
marc.


Option Explicit
Sub FehlerAnzahlCopy()
Sheets("DBank.100").Activate
Range("K65536").End(xlUp).Offset(1, 0).Activate
Application.ScreenUpdating = False
Worksheets("93.1").Activate
Range("V12").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.1").Activate
Range("V33").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.2").Activate
Range("V12").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.2").Activate
Range("V33").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.3").Activate
Range("V12").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.3").Activate
Range("V33").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.4").Activate
Range("V12").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Worksheets("93.4").Activate
Range("V33").Copy
Worksheets("DBank.100").Activate
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlValue
ActiveCell.Offset(0, 2).Activate
Application.ScreenUpdating = True
ActiveCell.Offset(1, -26).Activate
Range("BD27").Activate
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: kann eine Schleife die Befehle abarbeiten ?

24.07.2004 16:30:14

Nepumuk

Hallo marc,
klar, so:

Sub FehlerAnzahlCopy()
    Dim lngZeile As Long, intSpalte As Integer, intIndex As Integer
    Application.ScreenUpdating = False
    Sheets("DBank.100").Activate
    lngZeile = Range("K65536").End(xlUp).Row + 1
    intSpalte = 11
    For intIndex = 1 To 4
        Cells(lngZeile, intSpalte) = Worksheets("93." & CStr(intIndex)).Cells(12, 22).Value
        Cells(lngZeile, intSpalte + 2) = Worksheets("93." & CStr(intIndex)).Cells(33, 22).Value
        intSpalte = intSpalte + 4
    Next
    Range("BD27").Activate
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk

AW: kann eine Schleife die Befehle abarbeiten ?

marc

hi Nepumuk,
ich moechte mich bei Dir bedanken und ich habe etwas dank deiner Hilfe dazu gelernt.
Danke.
marc :o)

Beliebteste Forumthreads (12 Monate)

kann eine Schleife die Befehle abarbeiten ?

Forumthread: kann eine Schleife die Befehle abarbeiten ?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread