Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kann eine Schleife die Befehle abarbeiten ?

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige