Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
for next schleife kombinieren
zurück: UserForm > Textbox maximale Spalten weiter: Werte in ein Array lesen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
pepe01
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Jun 2011, 00:00
Rufname:

for next schleife kombinieren - for next schleife kombinieren

Nach oben
       Version: Office 2007

Nette Grüße an alle VBA Profis und Nachtmenschen . . .
Da der Code innerhalb einer Schleife immer der selbe ist, wollte ich diese kombinieren. Leider finde ich keine Lösung.
Bsp:
For Zeile = 12 to 37 and 44 to 64 Step 5
( dies klappt leider nicht )
Hat jemand von euch vielleicht ne Lösung ?
Schon mal vielen Dank für Eure Bemühungen . . .


Code:
Sub ausfüllen()
'Planung aus Liste übernehmen
Application.ScreenUpdating = False

Worksheets("Planung").Activate
For Zeile = 12 To 37 Step 5
      Range("K" & Zeile).Select
Selection.AutoFill Destination:=Worksheets("Planung").Range("K" & Zeile & ":RD" & Zeile), Type:=xlFillValues
Range("L" & Zeile & ":RD" & Zeile).Value = Range("L" & Zeile & ":RD" & Zeile).Value
Next

For Zeile = 44 To 64 Step 5
      Range("K" & Zeile).Select
Selection.AutoFill Destination:=Worksheets("Planung").Range("K" & Zeile & ":RD" & Zeile), Type:=xlFillValues
Range("L" & Zeile & ":RD" & Zeile).Value = Range("L" & Zeile & ":RD" & Zeile).Value
Next

Application.ScreenUpdating = True
End Sub
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Jun 2011, 00:18
Rufname:

AW: for next schleife kombinieren - AW: for next schleife kombinieren

Nach oben
       Version: Office 2007

Hi

vieleicht so:

Code:
dim Start(1) as long
dim Ende(1) as long
dim i as long
dim Zeile as long
Start(0) = 12
Start(1) = 44
Ende(0) = 37
Ende(1) = 64

for i = 0 to 1
   For Zeile = Start(i) to Ende(i) Step 5
      'hier dann der Schleifencode
   Next Zeile
next i


oder so:

Code:
Dim Zeile as long
for Zeile = 12 to 64
  if Zeile <= 37 or Zeile >= 44 Then
     'hier dann der Schleifencode
  end if
next Zeile

Gruß Daniel
pepe01
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Jun 2011, 22:51
Rufname:


AW: for next schleife kombinieren - AW: for next schleife kombinieren

Nach oben
       Version: Office 2007

Sorry für die Verspätung, war technisch bedingt leider offline . . .
Habe mich für die erste Variante entschieden, ist irgendwie übersichtlicher.
Vielen Dank, klappt
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: (Verweis-)Schleife in Excel-Formel? 2 xehpuk 2264 02. Sep 2010, 15:17
xehpuk (Verweis-)Schleife in Excel-Formel?
Keine neuen Beiträge Excel Formeln: Sverweis mit minimum kombinieren 2 lank 703 11. Aug 2010, 14:20
lank Sverweis mit minimum kombinieren
Keine neuen Beiträge Excel Formeln: Sverweis mit Summenformel kombinieren 2 Rondon 1113 28. Mai 2010, 19:31
Rondon Sverweis mit Summenformel kombinieren
Keine neuen Beiträge Excel Formeln: SVERWEIS & LINKS FUNKTION kombinieren 10 Chefrocker2000 2567 13. Mai 2010, 07:33
shift-del SVERWEIS & LINKS FUNKTION kombinieren
Keine neuen Beiträge Excel Formeln: SVERWEIS + WENN kombinieren??? 12 roobie 2104 18. Apr 2009, 20:30
Heinz Schweigert SVERWEIS + WENN kombinieren???
Keine neuen Beiträge Excel Formeln: String-Such-Funktionen kombinieren für bestimmten Bereich 3 Gast 1108 04. Apr 2009, 14:39
zahag String-Such-Funktionen kombinieren für bestimmten Bereich
Keine neuen Beiträge Excel Formeln: Hilfe - Wenn-Formel mit Anzahl kombinieren - aber wie?? 8 Diavolo 404 21. Dez 2008, 21:46
Diavolo Hilfe - Wenn-Formel mit Anzahl kombinieren - aber wie??
Keine neuen Beiträge Excel Formeln: Mehrere Felder in einem kombinieren + Zusatz 13 Chatwisel 1508 08. Okt 2008, 17:19
Chatwisel Mehrere Felder in einem kombinieren + Zusatz
Keine neuen Beiträge Excel Formeln: ZÄHLENWENN mit SUMMENPRODUKT kombinieren 2 Gast20 600 21. Aug 2008, 15:27
Gast20 ZÄHLENWENN mit SUMMENPRODUKT kombinieren
Keine neuen Beiträge Excel Formeln: Schleife und verzweigung schätz ich mal. 6 Gast 502 22. März 2008, 10:22
AnBo Schleife und verzweigung schätz ich mal.
Keine neuen Beiträge Excel Formeln: Kombinationsfelder (drop-down) miteinander kombinieren 1 Zeradum 2325 12. März 2008, 13:06
Zeradum Kombinationsfelder (drop-down) miteinander kombinieren
Keine neuen Beiträge Excel Formeln: COmpoBoxen und wennDann funktion kombinieren 2 sarah_1983 491 31. Jan 2008, 14:14
fridgenep COmpoBoxen und wennDann funktion kombinieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA