Office: (Office 365) For Next Schleife

Helfe beim Thema For Next Schleife in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, da bin ich wieder und wie kann es anders sein mit einem Problem. Ich habe eine Tabelle (im Anhang) dort soll die Werte in Zellen a/b/f... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Cherished, 6. Dezember 2022.

  1. For Next Schleife


    Hallo zusammen,
    da bin ich wieder und wie kann es anders sein mit einem Problem.
    Ich habe eine Tabelle (im Anhang) dort soll die Werte in Zellen a/b/f kopiert werden und in die erste frei Zeile eingefügt werden, das aber nur wenn eine Bedingung erfüllt wird.
    In meinem Beispiel: alle Daten die das Jahr 2021 betreffen. Habe mal angefangen mit einer Schleife aber ich bekomme sie nicht fertiggestellt.
    Code:
    sub Mietervorjahr()
    Dim r As Integer
    Dim von As Date
    Dim bis As Date
    Dim last As Integer
    last = Cells(Rows.Count).End(xlUp).Row + 1
    von = "1.1.21"
    bis = "31.12.21"
    For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(r, 3).Value >= von And Cells(r, 4) <= bis Then Cells(r, 1).Copy
    
    Next r
    
    End Sub
    Cool wäre es wenn z.B in die Zelle c 1.1.2022 und in die Zelle d 31.12.22 geschrieben würde.
    Danke
    Gruß
    Martin
     
    Cherished, 6. Dezember 2022
    #1
  2. DIZA
    DIZA Neuer User
    Kann dir gerade nicht so folgen.
    Wo kommen die "Werte" denn her und wie sehen die aus?
     
  3. Hallo Diza
    das Ziel ist es: wenn sich nicht im aktuellem Jahr, gegenüber dem Vorjahr geändert hat (also Mieterwechsel/ Personen ), soll einfach die Daten vom Vorjahr übernommen werden. Bei Änderung kommen Daten über ein UserForm. Die Formatierung ist wie in der Tabelle.
    Gruß
    Martin
     
    Cherished, 6. Dezember 2022
    #3
  4. DIZA
    DIZA Neuer User

    For Next Schleife

    Als 1. Anregung ohne Detailprüfung....DatumWerte sollte man noch variabel machen..
    Code:
    Sub Mietervorjahr()
    Dim r As Integer
    Dim von As Date
    Dim bis As Date
    Dim last As Integer
    last = Cells(Rows.Count, 1).End(xlUp).Row + 1
    von = "01.01.2021"
    bis = "31.12.2021"
    r = 2
    For Each cell In Range(Cells(2, 3), Cells(last, 3))
        If cell.Value = von Then
            Range(Cells(r, 1), Cells(r, 7)).Copy Range(Cells(last, 1), Cells(last, 7))
            Cells(last, 3).Value = "01.01.2022"
            Cells(last, 4).Value = "31.12.2022"
           last = last + 1
        End If
    r = r + 1
    Next cell
    End Sub
    
     
  5. YES !!!!
    Danke!!! Dein Code funktioniert super, genau so habe ich mir das vorgestellt.
    Das Datum kommt später aus einem Tabellenblatt.
    Gruß
    Martin
     
    Cherished, 6. Dezember 2022
    #5
Thema:

For Next Schleife

Die Seite wird geladen...
  1. For Next Schleife - Similar Threads - For Next Schleife

  2. Access For next Schleife

    in Microsoft Access Hilfe
    Access For next Schleife: Ich habe in einer Tabelle meine Spieler mit einer Spielernummer enthalten. Jeder Spieler hat als Bericht ein "Stammblatt", welches mit der Spielernummer aufgerufen wird. Ich möchte jetzt gerne...
  3. For Next Schleife verzögern, Tastatureingabe abfragen

    in Microsoft Excel Hilfe
    For Next Schleife verzögern, Tastatureingabe abfragen: Hallo zusammen Ich lasse in Excel in einer For-Next-Schleife eine zufällige Zelle für 200 Milisek.mit der Hintergrundfarbe weiss darstellen, danach warte ich für 1200 Milisek. Nun möchte ich...
  4. .Cells(Rows.Count, 1).End(xlUp).Row zählt nicht rauf in for next Schleife

    in Microsoft Excel Hilfe
    .Cells(Rows.Count, 1).End(xlUp).Row zählt nicht rauf in for next Schleife: Hallo Leute Mein Kopf raucht gerade und ich komme nicht weiter. Entweder bin ich zu dumm oder ja, ich bin zu dumm *upps Code: Dim Ticker As String Dim ws As Worksheet Dim blatt As String Dim...
  5. For Next Schleife vorzeitig nächsten Schleifendurchgang

    in Microsoft Excel Hilfe
    For Next Schleife vorzeitig nächsten Schleifendurchgang: Hallo alle zusammen, ich finde mich gerade in einer For Next Schleife nicht ganz zurecht. Wenn ich wie im folgendem Code den Schleifendurchgang vorzeitig wieder von neuem beginnen möchte, ist ja...
  6. for ... Next Schleife -- Werte aus Tabelle einlesen und in Tabelle wieder ausgeben

    in Microsoft Excel Hilfe
    for ... Next Schleife -- Werte aus Tabelle einlesen und in Tabelle wieder ausgeben: allo zusammen, ich bin blutiger Progammieranfänger und versuche mich in VBA - klar, sonst wäre ich ja nicht hier. Folgendes Problem: Ich habe in die Zellen A1 bis A12 die Zahlen 1-12 eingegeben...
  7. On Error in einer For Next Schleife

    in Microsoft Excel Hilfe
    On Error in einer For Next Schleife: Hi @all! Ich habe eine For-Next-Schleife, in der zwanzig Dateien nacheinander geöffnet werden. Sollt diese nicht vorhanden sein, soll mit der nächsten fortgefahren werden. Also habe ich in den...
  8. For-Next-Schleife für Textfeldübertragung

    in Microsoft Access Hilfe
    For-Next-Schleife für Textfeldübertragung: Hallo zusammen, ich habe 20 Textfelder (txt1 bis txt20) und muss die in 20 andere Textfelder (txt1S bis txt20S) übertragen. Nun habe ich mir gedacht, dass ich das mit einer For-Next-Zähler machen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden