Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Do while schleifen?

Forumthread: Do while schleifen?

Do while schleifen?
06.04.2018 13:23:43
Ahmet
Hallo Forum,
erneut bin ich auf eure Hilfe angewiesen.
Den Sachverhalt erkennt ihr am besten anhand des Bildes: siehe Link
Userbild
Mit geht es hierbei vorerst um die blaue Linie. Dieser ist ein einfaches On/Off Signal.
On: 60 sek -- Zahlenwert: 10
Off: 30 sek -- Zahlenwert: 0
Zyklenanzahl (on+off): 7
Gesamtzeit somit: 630 sek
Wie kann ich diesen Zyklus in eine Tabelle reinschreiben lassen mittels vba?
Das mir also eine Tabelle mit folgendem Aufbau geschrieben wird:
10
10
10
.
.
.
0
0
0
.
.
.
10
10
10
.
.
.
Ich habe das bereits mittels do while und for schleifen versucht. Leider vergebens.
Vielen Dank für eure Hilfe
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Do while schleifen?
06.04.2018 13:39:30
Rudi
Hallo,
wieso Do...While?
For...Next!
Sub aaa()
Dim i As Integer, j As Integer, n As Long
n = 1
For i = 1 To 7
For j = 1 To 60
Cells(n, 1) = 10
n = n + 1
Next
For j = 1 To 30
Cells(n, 1) = 0
n = n + 1
Next
Next
End Sub

Gruß
Rudi
AW: Do while schleifen?
06.04.2018 13:39:43
Nepumuk
Hallo Ahmed,
würde ich so machen:
Public Sub Beispiel()
    Dim lngZyklus As Long, lngOn As Long, lngOff As Long, lngRow As Long
    lngRow = 2
    For lngIndex = 1 To 7
        For lngOn = 1 To 60
            Cells(lngRow, 1).Value = 10
            lngRow = lngRow + 1
        Next
        For lngOff = 1 To 30
            Cells(lngRow, 1).Value = 0
            lngRow = lngRow + 1
        Next
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Do while schleifen?
06.04.2018 13:41:50
Nepumuk
Nochmal Hallo,
da ist noch ein Fehler drin:
Public Sub Beispiel()
    Dim lngZyklus As Long, lngOn As Long, lngOff As Long, lngRow As Long
    lngRow = 2
    For lngZyklus = 1 To 7
        For lngOn = 1 To 60
            Cells(lngRow, 1).Value = 10
            lngRow = lngRow + 1
        Next
        For lngOff = 1 To 30
            Cells(lngRow, 1).Value = 0
            lngRow = lngRow + 1
        Next
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Do while schleifen?
06.04.2018 13:46:27
Ahmet
Ich habe jetzt beispielhaft den Code von Rudi probiert. Klappt Einwandfrei!!
Vielen Dank an euch beiden für eure Mühe.
AW: Do while schleifen?
06.04.2018 13:55:10
UweD
Hallo
hier noch eine Lösung nur mit einer Schleife
Sub sdsdsd()
  Dim i As Integer, iOn As Integer, iOff As Integer, Zy As Integer
  Dim WOn As Integer, WOff As Integer, n As Integer
  
  iOn = 60
  iOff = 30
  Zy = 7
  
  WOn = 10
  WOff = 0
  
  ' los gehts 
  
  n = 1
  For i = 1 To Zy
    Cells(n, 1).Resize(iOn, 1) = WOn
    n = n + iOn
    Cells(n, 1).Resize(iOff, 1) = WOff
    n = n + iOff
  Next
End Sub

LG UweD
Anzeige
Top! owT
06.04.2018 21:36:53
Rudi
;

Forumthreads zu verwandten Themen

Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Anzeige
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
VBA Code vorzeitig beenden
WalterK

Hallo
benötige nochmals Hilfe bei einem Codeteil:
Dim ws As Worksheet
Dim ZELLE As Range
Dim wsNamen
Set wsNamen = CreateObject("Scripting.Dictionary")
For Each ws In ThisWorkbook.Worksheets
wsNamen.Add ws.Name, ws.Name
Next
For Each ZELLE In Range("1.Einstel...
23.03.2013 17:24:44
Thread-ID: 1305682
13 Beiträge
VBA|UserForm For-Each-Schleife zählt nicht korrekt
Mario

Hallo zusammen,
bei folgendem Code zählt meine For-Each Schleife fehlerhaft.
Solange die Tabelle entsprechenden Suchwert beinhaltet, wird auch der richtige Wert angegeben.
Selbst bei einem Eintrag wird auch nur 1 angezeigt.
Wenn die Tabelle aber keinen Eintrag mit diesem Suchwe...
10.07.2013 01:38:15
Thread-ID: 1321752
7 Beiträge
Anzeige
while Schleife abbrechen geht nicht
Dirk

Hallo zusammen,
ich versuche eine While-Schleife mit ESC abzubrechen, aber irgendwie klappt das nicht so, wie ich mir das vorstelle. Ich habe in diversen Foren unterschiedliche Lösungen gefunden und mehrere ausprobiert. Ohne Inhalt klappt es, aber mit Inhalt funktioniert es leider nicht.
25.07.2013 17:11:10
Thread-ID: 1324152
21 Beiträge
Anzeige
"Schleifenfunktion" nur mit Formel, kein VBA
reiner

hallo Leute,
bei Klicken in die CheckBox in Zelle "S17" soll ein Datum aus Spalte "P" (gleiche Zeile) kopiert und eine Zeile tiefer in Zelle "F18" kopiert werden, aber nur wenn gleichzeitig in "H17" mindestens eine "1" oder eine höhere Ziffer steht. Ist diese Zelle leer oder enthält diese l...
20.11.2013 11:02:21
Thread-ID: 1339350
5 Beiträge
Do Until Schleife richtige Wahl?
Udo

Hallo zusammen,
ich habe ein kleines Tool geschrieben, dass Daten auswertet:
Dim Anzahl As Integer
Dim IntZeile2 As Double
Dim Erg2 As Double
Erg2 = 4
IntZeile2 = 2 + (TextBox49.Text * TextBox9.Text)
Do Until IntZeile2 = Sheets("SETUP").Range("F5") - 1
If Sheets(...
12.01.2014 11:53:02
Thread-ID: 1344915
10 Beiträge
VBA Schleife für Formel
Susanne

Hallo,
ich habe Daten in Excel exportiert, die ich kategorisieren möchte. Leider sind die Rohdaten sehr konfus aufgebaut.
Die Datei enthält in Spalte A und B bestimmte Parameter.
Beispiel:
Spalte A
A1 enthält z. B.: 15 - Haus - Neubau / Abrechnung
A2 enthält z. B.: 23 -...
07.10.2014 07:10:49
Thread-ID: 1385222
5 Beiträge
VBA: Zählen mit Do-Until
Hans

Hallo,
meine Aufgabe ist es das ich in einem Arbeitsblatt "Auswertung" die Filme auswerten soll nach Genre, die im Arbeitsblatt "Daten" angezeigt werden
In Zelle C4 des Arbeitsblattes "Auswertung" soll das Genre (Drama, Komödie, Actionfilm usw...) händisch eingegeben werden und in Zelle...
25.11.2014 16:25:00
Thread-ID: 1394485
3 Beiträge
Do While Schleife(n)
Ron

Hallo liebe Gemeinde,
ich brauche wieder einmal Eure Hilfe. Mein Ziel ist es mit einem Makro aus verschiedenen Datei Werte auszulesen. Die ersten Daten sind immer erst ab Zeile 15 zu finden. In den Quelldateien sind allerdings unterschiedlich viele Einträge, so dass ich den Lesevorgang been...
06.02.2015 19:09:13
Thread-ID: 1407818
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige