For Next Schleife soll bei der Ausgabe die Zeile nicht überspringen?

Hi! Ich habe eine For Next Schleife in Excel, die die Ziffern 1-10 in einer Step 2 Reihe durchzählt. Demnach stehen die Ziffern 1,3,5,7 und 9 immer im Abstand von einer Zeile zueinander. jetzt möchte ich sie aber alle untereinander stehen haben. Wie kriege ich das hin?

2 Antworten

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

06.12.2016, 12:41

For i=1 To 10 Step 2
  ActiveCell.Value = i
  Set ActiveCell = ActiveCell.Offset(1,0)
Next

(ungetestet)

Es gibt aber noch andere Möglichkeiten. Zum Beispiel könntest du die aktive Zelle fix halten und den Offset als 1+(i-1)/2 berechnen.

Oder du zählst in Einerschritten und gibst immer Schritt*2-1 aus.

Oder du lässt eine weitere Zählvariable j mit laufen, die in jedem Durchlauf nur um 1 erhöht wird.

Oubyi, UserMod Light

06.12.2016, 13:14

SO klappt es nicht, da das verschieben der ActiveCell nicht hinhaut.
Mit direktem Offset und der von Dir beschriebenen Berechnung würde in der Zelle UNTER der Aktiven Zelle mit dem Eintrag begonnen.
SO wird IN der aktiven Zelle mit dem Eintrag begonnen:

For i = 1 To 10 Step 2
  ActiveCell.Offset((i - 1) / 2, 0).Value = i
Next

Oubyi, UserMod Light

06.12.2016, 13:17

@Oubyi, UserMod Light

P.S.: Die beiden weiteren Möglichkeiten, die Du aufführst sollten auch funktionieren.

daCypher

06.12.2016, 12:38

Dim i As Integer

For i = 1 To 5
    Range("A" & i) = 2 * i - 1
Next i

Ähnliche Beiträge

VBA for-schleife: Leere Zeilen überspringen?

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

...zum Beitrag

Casio Programmierung: Neue Zeile in Schleife?

Angenommen ich habe folgendes Programm in CASIO BASIC geschrieben:

For 1→Z To 10 Step 1
Z
Next

Wenn ich das ausführe, steht nur "10" ganz oben da, also der letzte Wert, den die Variable Z hatte. Ich möchte aber, dass von 1 bis 10 alles da steht. Wie mache ich das?

...zum Beitrag

Wie kann ich mit einer For-Schleife Punkt vor Strich rechnen?

Hallo,

ich habe mir einen Taschenrechner (mit For-Schleife) erstellt.

Er kann alles, außer Punkt vor Strich. Die Funktion ist etwas schwieriger, da ich kein kein DataTable.Compute benutzen darf, sonst wäre es ja zu einfach.

Es muss durch den String selber erfolgen, also etwas komplizierter.

Hier der Code (kann leider nicht den ganzen Code eingeben, daher hier der = Code, der dafür ja auch am wichtigsten ist; ich füge den Rest einzeln hinzu!):

Dim input As String = tb.Text
Dim numbers() As String = input.Split({"+", "-", "*", "/"}, StringSplitOptions.RemoveEmptyEntries)
Dim operators() As String = Regex.Matches(input, "[-+*/]").OfType(Of Match).Select(Function(m) m.Value).ToArray()

For Each op As String In operators
  If op = "*" Then
    Console.WriteLine("Multiplication operator found!")
  ElseIf op = "/" Then
    Console.WriteLine("Division operator found!")
  ElseIf op = "+" Then
    Console.WriteLine("Addition operator found!")
  ElseIf op = "-" Then
    Console.WriteLine("Subtraction operator found!")
  End If
Next

If numbers.Length < 2 OrElse operators.Length < 1 Then
  Return ' Exit the method if we can't perform the calculation
End If

Dim result As Double = Double.Parse(numbers(0))

For i As Integer = 0 To operators.Length - 1
  Dim op As String = operators(i)
  Dim number As Double = Double.Parse(numbers(i + 1))

  Select Case op
    Case "+"
      result += number
      (das Gleiche mit -*/)
  End Select
Next

tb.Text = result.ToString()
Dim containsInvalidCharacters As Boolean = False

For i As Integer = tb.Text.Length - 1 To 0 Step -1
  If Not IsNumeric(tb.Text.Substring(i, 1)) And Not "+-*/".Contains(tb.Text.Substring(i, 1)) Then
    containsInvalidCharacters = True
    Exit For
  End If
Next

' Beibehaltene For-Schleife
For index As Integer = 1 To 2
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 12

For index As Integer = 3 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 321

For index As Integer = 4 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 4321

For index As Integer = 5 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 54321

For index As Integer = 6 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 654321

For index As Integer = 7 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 7654321

For index As Integer = 8 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 87654321

For index As Integer = 9 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 987654321

For index As Integer = 0 To 0
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 0

End Sub

Danke schon einmal!

...zum Beitrag

Excel Zeilen innerhalb einer Tabelle automatisch verschieben?

Hallo

Ich überarbeite zur Zeit mein Haushaltsbuch und habe jetzt folgendes Problem, wofür ich eine Lösung bräuchte.

Ich möchte (siehe Bild - Feste Ausgaben), wenn eine Zeile frei ist, der gesamte untere Bereich automatisch um eine Zeile nach oben verschoben wird.

Beispiel Bild in E7-H7 soll dann E8-H7, E8-H8 soll dann E9-H9 stehen usw.

bzw. wenn zwischen den Zeilen eine leere Zeile frei ist, soll der Bereich der unter der leere Zeile stehen z.B. auch um 1 Zeile automatisch nach oben verschoben werden.

Beispiel Bild: Der gesamte Bereich von E12-H12 - E16-H16 soll um 1 Zeile nach oben verschoben werden Bezieht sich aber auch darauf, wenn ggf. mehrere Zeilen untereinander frei sind

Bezieht sich aber nur auf die Tabelle "Feste Ausgaben". Die Reihenfolge soll nicht verändert werden (z.B. keine Sortierung von A-Z)

Falls relevant Desweiteren stehen in allen Zellen (außer Spalte Datum) Formeln, da die Daten die in der Tabelle stehen aus einer anderen Tabelle übernommen werden. Diese müssen beim verschieben ja eigentlich nur gelöscht bzw. überschrieben werden.

Danke für die Hilfe im vorraus

...zum Beitrag

C# for schleife frage?

Wie muss ich eine for schleife bei c# gestalten, dass in der ersten Zeile 10 Sterne sind in der zweiten Zeile 9 * zu sehen sind und in der dritten Zeile 8 Sternchen. Wie macht man das?

...zum Beitrag

Wie kann ich eine Wenn-Formel 4 mal wiederholen lassen?

Datenquelle Tabellenblatt

Ausgabe Tabellenblatt

Ich habe eine Wenn-Formel, die in 4 Zeilen untereinander 4 Werte eines anderen Blattes aus 4 nebeneinander liegenden Spalten der selben Zeile ausgibt. Diese 4 Formeln sollen dann für die nächste Zeile durchgeführt werden. Ich habe jetzt vier separate Formeln angelegt und diese nach unten gezogen. Dabei vergrößert sich der Abstand der nächsten Zeilenabfrage jedoch auch um 4.

Kann ich eine Art Schleife bauen, in der nach 4 Zeilen der abgefragte Zeilenwert um 1 erhöht wird. Also:

=WENN(Tabelle2!$G3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$H3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$I3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$J3<>0; Tabelle2!$D3;"")

=WENN(Tabelle2!$G4<>0; Tabelle2!$D4;"")

=WENN(Tabelle2!$H4<>0; Tabelle2!$D4;"")

=WENN(Tabelle2!$I4<>0; Tabelle2!$D4;"")

=WENN(Tabelle2!$J4<>0; Tabelle2!$D4;"")

Vielen Dank für die Unterstützung!

...zum Beitrag

In Excel VBA eine If-Schleife um zwei Zeilen voneinander zu subtrahieren (Uhrzeitformat und abs- Funktion inbegriffen)?

Mein Bisheriger Versuch:

For j = 4 To 700

With ActiveWorksheet

If .Cells(j, 2) = "" Then Exit For

If Minute(Abs(.Cells(j, 8).Value) - Abs(.Cells(j - 1, 8).Value)) >= 1 Then _

Call FilterCopieVerspätung

End With
Next j

End Sub

Problem: Typenkonflikt

...zum Beitrag

Kann mir jemand bei diesem Makro eine Schleife einbauen?

ich benötige dringend Hilfe bei diesem Makro!

ich habe dieses Makro von einem Mitglied von gf.

dieses Makro benötigt dringend eine Schleife

von Zeile 1 To 6000

also Zeile 1 ist SUMME(ZÄHLENWENN($A1:$F1;$L:$Q))

und Zeile 2 wäre dann $A2:$F2

und das Ganze dann bis Zeile 6000

Sub FormelAnpassen()

Dim spalte As Long

Dim zeile As Long

Dim bezugZeile As Long

zeile = 2

bezugZeile = 0

For spalte = 20 To 200

bezugZeile = bezugZeile + 1

Cells(zeile, spalte).FormulaArray = "=SUM(COUNTIF($A1:$F1,$L$" & bezugZeile & ":$Q$" & bezugZeile & "))"

End Sub

es wäre super wenn mir jemand helfen würde

danke im voraus

...zum Beitrag

Wie ermittle ich in Excel die erste leere Zelle?

Ich habe Spalten mit unterschiedlicher Länge: A geht bis Zeile 9 hat dann eine Leerzeile und dannvon 11 weiter bis 23, B geht bis 18, C bis 25.

Ich möchte aber immer die erste leere Zelle in A ermitteln, also im Beispiel die Zeile 10 Das geht natürlich mit einer For Next Schleife, aber es soll auch eine einfachere Formel dafür geben. Und ich brauche nur die Nummer der Zeile (Row)

...zum Beitrag

Wie kann ich mit Batch aus einer Quelldatei mit einer FOR-Schleige GANZE Zeilen auslesen?

Ich habe mir bereits eine FOR-Schleife zu diesem Zwecke geschrieben, alledings bekomme ich leider nie die gesamte Zeile raus, sondern nur das erste Wort. Hier ist ein Beispiel:

Quelle.txt:

Hallo Alice!
Ich bin eine Testdatei.
Freut mich, dass du da bist.

Auslesen.bat:

@echo off
FOR /f %%f IN (Quelle.txt) DO echo %%f
pause >NUL

Kommandozeilenoutput:

Hallo
Ich
Freut

Danke für eure Hilfe! :)

...zum Beitrag

Excel Tabelle in eine lange Zeile verwandeln?

Hallo Ich habe eine lange Liste mit Namen und zugehörigen Daten die momentan in einer Tabellen untereinander stehen.

Ich möchte die Tabelle so umändern das nachher alle Daten die zu einem Namen gehören in einer Zeile hintereinander stehen. Also transponieren hilft da leider nicht, weil dann die Daten auch untereinander stehen, will eine lange foltlaufende Liste in einer Zeile. Kann mir jemand einen Tipp geben wie man das bei Excel macht.

...zum Beitrag

Schleife VBA Leerzeile einfügen wenn Bedingung erfüllt, was mache ich falsch?

Hi,

ich möchte ein makro schreiben und die schleife funktioniert bei mir nicht. Ich möchte, wenn in Spalte I das Wort "nein" steht, das er in dieser Zeile eine Leerzeile einfügt.

For i = 1 To 65536
         If Cells(i, 9) = "nein" Then
         Rows.Select
    Selection.Insert Shift:=xlDown
     End If
    Next i

Was mache ich falsch?

Lieben Dank!!!

...zum Beitrag

UserForm Textboxen mit Werten aus Excel Datei füllen?

Ich habe eine Excel Datei, die mittels Makro mit Werten befüllt wird.

Dasselbe Makro soll nun eine bestimmte Spalte der Datei durchlaufen und dann mittels Schleife alle TextBoxen der UserForm mit diesen Werten füllen.

Mein Versuch dazu:

  Dim i As Byte
  Dim currentName As String

For i = 1 To 10

    currentName = sheet.Cells(i, "H").Value
    

    UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Next

Funktioniert leider nicht. Muss ich bei der Initialisierung der UserForm oder der TextBoxen noch was beachten?

Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

Folgende Zeile wird markiert:

UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

...zum Beitrag

Makro zum Zusammenfassen von Spalten

Hallo alle zusammen,

ich hab ein kleines Problem mit einem Makro, welches ich mir mit Hilfe diverser Quellen versucht habe auf meinen Fall zusammenzuschustern. Folgendermaßen kann man sich die Grundsituation vorstellen:

Ich habe in den Spalten D Und E ca 70 Zeilen mit Einträgen. Bis auf die Zellen 11 - 14 Ist die Spalte E leer. Also wollte ich ein Makro benutzen, welches die Spalte D wenn D und/oder E leer sind mit E zusammenfasst und sonst nicht.

Das soll dann auch für die Spalten F,G und H,I und immer soweiter klappen. Wer könnte mir Helfen und zeigen wo mein Fehler liegt denn bisher funktioniert das Makro nicht ganz so wie ich mir das vorgestellt habe.

Sub Formatierung()

Dim Zeile As Integer Dim Spalte As Integer

For Spalte = 4 To 256 Step 2
For Zeile = 1 To 100

If ((Not (IsEmpty(Cells(Spalte, Zeile)))) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True) Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

If IsEmpty(Cells(Spalte, Zeile)) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

Next Zeile

Next Spalte

End Sub

So sieht das bisher aus. Für jede Hilfe vorab schonmal besten Dank

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen