Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Auflistung meiner Daten klappt nicht richtig	31.07.2023 16:08:00	Reinhold
Auflistung meiner Daten klappt nicht richtig	31.07.2023 22:49:45	Gast42222
Auflistung meiner Daten klappt nicht richtig	01.08.2023 12:00:01	Reinhold
Auflistung meiner Daten klappt nicht richtig	01.08.2023 14:19:19	Gast70714
Auflistung meiner Daten klappt nicht richtig	01.08.2023 14:42:29	Reinhold
Wunderbar, dann markiere das Thema bitte als erledigt	01.08.2023 16:55:34	Gast15304

Ansicht des Beitrags:

Von:
Gast70714

Datum:
01.08.2023 14:19:19

Views:
193

Rating:

Antwort:

Thema:
Auflistung meiner Daten klappt nicht richtig

Wenn ich dich richtig verstehe, soll es zum Schluss so aussehen:

Option Explicit

Sub SucheKalenderwoche()
  
  ' Zeile, ab welcher die Kalenderwochen ausgegeben werden sollen
  Const OutputRow As Long = 50
  
  Dim ws As Worksheet
  Dim rng As Range
  
  ' Ersetze "DeinBlattName" durch den Namen deines Blatts
  Set ws = ThisWorkbook.Worksheets("Timingeins")
  ' Die zu überprüfende Zeilen (Zeile 14 bis 21 -> "14:21")
  Set rng = ws.Rows("14:21")
  
  Dim rngRow As Excel.Range
  Dim rngCell As Excel.Range
  
  For Each rngRow In rng.Rows
    
    ' Text aus Spalte A nach unten übertragen
    ws.Cells(OutputRow + rngRow.Row - rng.Row, "A").Value = ws.Cells(rngRow.Row, "A").Value
    
    For Each rngCell In rngRow.Cells
      If rngCell.Interior.Color = RGB(0, 176, 240) Then
        ' Kalenderwoche nach unten übertragen
        ws.Cells(OutputRow + rngCell.Row - rng.Row, rngCell.Column).Value = ws.Cells(3, rngCell.Column).Value
      End If
    Next
    
  Next
  
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Auflistung meiner Daten klappt nicht richtig	31.07.2023 16:08:00	Reinhold
Auflistung meiner Daten klappt nicht richtig	31.07.2023 22:49:45	Gast42222
Auflistung meiner Daten klappt nicht richtig	01.08.2023 12:00:01	Reinhold
Auflistung meiner Daten klappt nicht richtig	01.08.2023 14:19:19	Gast70714
Auflistung meiner Daten klappt nicht richtig	01.08.2023 14:42:29	Reinhold
Wunderbar, dann markiere das Thema bitte als erledigt	01.08.2023 16:55:34	Gast15304