Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen prüfen und Zeilen kopieren

Zellen prüfen und Zeilen kopieren
10.12.2020 11:07:53
Gerhard
https://www.herber.de/bbs/user/142203.xlsx
Hallo,
ich habe folgendes Problem mit einer Aufgabenstellung über VBA-Makro:
In anhängender Tabelle sind in den Spalten L-P Formeln eingefügt welche die Spalten B-K nach Inhalt prüfen. Nun soll ein manuell zu startendes Makro die Spalten L-P auf den Inhalt prüfen. Nur wenn alle Zellen mit "ja" befüllt sind soll diese Zeile in ein weiteres Tabellenblatt kopiert werden, immer fortlaufend nach unten. Gleichzeitig soll in der Spalte "Q" ein Kenner (z.B. X) gesetzt werden welcher den Kopiervorgang dokumentiert, damit beim nächsten Start des Makro die Zeile nicht noch einmal kopiert wird.
Über einen Lösungsansatz würde ich mich freuen.
Gruß

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen prüfen und Zeilen kopieren
10.12.2020 12:37:12
Worti
Hallo Gerhard,
das geht so: 
Sub Pruefen_Und_Kopieren()
Const constJa = "ja"
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim lngZeilelfd As Long, lngZeileZiel As Long
Set wsQuelle = ThisWorkbook.Worksheets("Erfassung ")
Set wsZiel = ThisWorkbook.Worksheets("Ziel")
lngZeileZiel = IIf(wsZiel.Range("A1").Value = "", 1, wsZiel.Cells(Rows.Count, 1).End(xlUp). _
Row + 1)
For lngZeilelfd = 2 To wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row
If Not UCase(wsQuelle.Cells(lngZeilelfd, 17).Value) = "X" Then
If wsQuelle.Cells(lngZeilelfd, 12).Value = constJa And _
wsQuelle.Cells(lngZeilelfd, 13).Value = constJa And _
wsQuelle.Cells(lngZeilelfd, 14).Value = constJa And _
wsQuelle.Cells(lngZeilelfd, 15).Value = constJa And _
wsQuelle.Cells(lngZeilelfd, 16).Value = constJa Then
wsQuelle.Range("A" & lngZeilelfd & ":K" & lngZeilelfd).Copy _
Destination:=wsZiel.Range("A" & lngZeileZiel)
wsQuelle.Cells(lngZeilelfd, 17).Value = "X"
lngZeileZiel = lngZeileZiel + 1
End If
End If
Next lngZeilelfd
Set wsQuelle = Nothing
Set wsZiel = Nothing
End Sub

Damit der Code läuft, musst du in deiner Arbeitsmappe ein Blatt mit Namen Ziel angeben
Gruß Worti
Anzeige
AW: Zellen prüfen und Zeilen kopieren
10.12.2020 13:07:23
Gerhard
Hallo Worti,
funktioniert ja einwandfrei, vielen herzlichen Dank.
Ich werde mir den Code genauer anschauen, vielleicht bekomme ich es beim nächsten mal selbst hin.
Nochmal vielen Dank und viele Grüße
Gerhard

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige