Thema Datum  Von Nutzer Rating
Antwort
Rot Unter Bedingung Zeile kopieren
08.04.2024 13:11:16 Philipp W.
Solved
08.04.2024 15:01:38 Mase
Solved
08.04.2024 15:07:56 Mase
Solved
10.04.2024 13:50:22 Gast63055
Solved

Ansicht des Beitrags:
Von:
Philipp W.
Datum:
08.04.2024 13:11:16
Views:
302
Rating: Antwort:
 Nein
Thema:
Unter Bedingung Zeile kopieren

Hallo zusammen,

ich habe eine Datei mit zwei Tabellenblättern. In dem einen Tabellenblatt befinden sich alle Projekte der letzten Jahre mit der Information, ob das Projekt abgeschlossen ist oder nicht. Steht in Spalte "D" eine 0, dann ist es abgeschlossen, andernfalls ist es noch offen. 

Ich möchte jetzt in dem zweiten Tabellenblatt nur die Projekte reinkopieren, die noch offen sind. Wichtig ist, dass die gesamte Zeile aus dem ersten Tabellenblatt kopiert wird. 

Ich habe ein kleines Skript geschrieben, dass allerdings nur funktioniert, wenn die noch offenen Projekte oben in der Liste stehen und nahtlos aufeinander folgen. So bald ein abgeschlossenes Projekt dazwischen kommt wird nicht weitergesucht oder wenn das erste/oberste Projekt abgeschlossen ist wird auch nichts kopiert. 

Ich habe im zweiten Tabellenblatt (wo nur die offenen Projekte stehen sollen) eine Schlatfläche eingefügt und das Marko hinterlegt. Im Idealfall soll durch klicken der Schlatfläche das Makro ausgeführt werden und die ganze Liste aktualisiert werden, sprich, wenn es zuletzt 5 offene Projekte gab und danach nur noch 4, dass auch wirklich nur die 4 Projekte angezeigt werden.

Hier das Skript, dass ich geschrieben habe:

Sub ZelleKopieren()
    Dim i, j As Integer
    Dim wsAllTrainings, wsOpenTrainings As Worksheet
    Set wsOpenTrainings = Worksheets("OpenTrainings")
    Set wsAllTrainings = Worksheets(1)
    i = 1: j = 1
    While wsAllTrainings.Range("D" & i).Value <> "0"
        If LCase(wsAllTrainings.Range("D" & i).Value) <> "0" Then
            wsAllTrainings.Rows(i).Copy wsOpenTrainings.Rows(j)
            j = j + 1
        End If
        i = i + 1
    Wend
End Sub

 

Ich nutze Windows 10 und arbeite mit Excel 365.

Vielen Dank im voraus und ich hoffe, dass ich es genau genug beschrieben habe.
 


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
Rot Unter Bedingung Zeile kopieren
08.04.2024 13:11:16 Philipp W.
Solved
08.04.2024 15:01:38 Mase
Solved
08.04.2024 15:07:56 Mase
Solved
10.04.2024 13:50:22 Gast63055
Solved