Office: For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

Helfe beim Thema For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo , habe folgende Schleife geschrieben : Dim rngBereich As Range Dim rngZelle As Range Sub Test() Set rngBereich =... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Solitec, 15. März 2020.

  1. For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen


    Hallo ,

    habe folgende Schleife geschrieben :

    Dim rngBereich As Range
    Dim rngZelle As Range
    Sub Test()

    Set rngBereich = ActiveSheet.Range(ActiveSheet.Cells(1, 1), _
    ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp))

    For Each rngZelle In rngBereich
    If rngZelle.Value = "" Then
    rngZelle.Offset(0, 3).Interior.Color = vbRed
    End If

    Next

    End Sub

    Ich kriege es irgendwie nicht hin im Set rngBereich das ActiveSheet umzuschreiben das es sich auf das Sheet("Daten") bezieht .

    Kann mir einer auf die Sprünge helfen ?

    Danke

    :)
     
    Solitec, 15. März 2020
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    with Sheet("Daten"
    Set rngBereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With

    Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
    Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





    Meine Homepage Homeseite - Hajo's Excelseiten
     
    Hajo_Zi, 17. März 2020
    #2
  3. Hi, so :

    Code:
     
    ReginaR, 17. März 2020
    #3
  4. For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

    Danke ,

    was bin ich blöd ……..
     
    Solitec, 17. März 2020
    #4
  5. Och, so hart würde ich das nicht sehen *wink.gif*
    Schönen Abend noch!
     
    ReginaR, 17. März 2020
    #5
  6. Hallo Solitec,

    ganz sauber ist Reginas Code aber nicht, denn wenn das TB 'Daten' nicht das aktive TB ist, dann knallt's jämmerlich, deshalb so: Code:
    Gruß von Luschi
    aus klein-Paris

    PSD: ansonsten hätest Du auch bei deinem Ausgangscode bleiben können.
     
    Luschi, 17. März 2020
    #6
  7. \@Luschi: stimmt, das ActiveSheet in den Klammern hatt eich wohl "ausgeblendet" *boah
     
    ReginaR, 17. März 2020
    #7
Thema:

For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

Die Seite wird geladen...
  1. For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen - Similar Threads - For Each Schleife

  2. For Each Next läuft nur einmal durch

    in Microsoft Access Hilfe
    For Each Next läuft nur einmal durch: Hallo Leute, ich hoffe ihr könnt mir weiter helfen... ich habe folgendes Modul erstellt: Sub VZauslesen() 'deklarieren Variablen für Dateien suchen Dim AuftragNr As String Dim Dateiname As...
  3. For Each Schleifen als Struktogramm

    in Microsoft Excel Hilfe
    For Each Schleifen als Struktogramm: Hallo zusammen, folgenden Code müsste ich in einem Struktogramm unterbringen, komme aber leider mit den For Each Schleifen nicht so ganz klar. Hat jemand einen Vorschlag? Vielen Dank und schöne...
  4. For Each Schleife abbrechen mit IF

    in Microsoft Excel Hilfe
    For Each Schleife abbrechen mit IF: Liebe Community, mir stellt sich gerade die Frage, wie ich eine For Each Schleife abbrechen kann. In der anhängenden Excel-Datei habe ich den Bereich A1:A25 mit dem Bereichsnamen "open"...
  5. For Each Schleife, Zellen von zwei Bereichen vergleichen

    in Microsoft Excel Hilfe
    For Each Schleife, Zellen von zwei Bereichen vergleichen: Hallo zuasmmen, ich habe folgendes Problem: Ich möchte mit einer Schleife einzelne Zellen eines definierten Bereichs durchgehen und mit den Zellen eines anderen Bereichs vergleichen....
  6. For Each Schleife mehrmals nach gleichem Wert suchen

    in Microsoft Excel Hilfe
    For Each Schleife mehrmals nach gleichem Wert suchen: Hallo Ich hänge seit einigen Tagen an einem Problem. Ich möchte Daten aus einer Tabelle über Userform D auslesen und in Userform wieder ausgeben. Das habe ich auch soweit hinbekommen. Ich suche...
  7. Recordset mit For each durchlaufen

    in Microsoft Access Hilfe
    Recordset mit For each durchlaufen: Hallo, ich habe hier einen Bericht, in dem ich Felder im Detailbereich befüllen möchte dies versuche ich mit For Each, bekomme aber nnicht raus wie, weiß jemand Rat? Code: Private Sub...
  8. VBA: For Each Schleife mit mehreren Bedingungen

    in Microsoft Excel Hilfe
    VBA: For Each Schleife mit mehreren Bedingungen: Hallo zusammen, erstmal möchte ich Euch eine schöne Osterzeit mit erholsamer Zeit wünschen.:rolleyes: Mein aktuelles Problem versuche ich schon seit geraumer Zeit zu lösen, aber da ich noch...
  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