Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen/Teile kopieren mit Array-Bedingung

Forumthread: Zeilen/Teile kopieren mit Array-Bedingung

Zeilen/Teile kopieren mit Array-Bedingung
19.05.2006 13:31:23
Peter
Hallo liebe Forums-Teilnehmer,
habe folgendes Problem oder Frage -bin ziemlicher Newbie mit VBA.
Ich möchte gerne basierend auf zwei (oder mehr) Konditionen eine Zeile (und/oder Teile daraus) aus einem Excelblatt "data" in das Blatt "summary" kopieren.
Beispiel:
- Kondition 1: Datum in "data" matched mit den dem Datum aus "summary" (Zellen start und ende)
- Kondition 2: "reporter" in blatt "data" = bestimmter Wert x
Also er soll alle Zeilen in "data" durchsuchen und mir diejenigen in Blatt "summary" kopieren, die diese Bedigungen erfüllen.
Also wenn das Datum im Bereich aus "summary" liegt und ferner noch der "reporter" = x ist.
Kann mir da jmd. helfen? Hoffe mein Problem ist klar. Das kann gerne über einen Button angestoßen werden das Makro.
Danke vorab für alle Antworten
Peter
https://www.herber.de/bbs/user/33786.xls
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen/Teile kopieren mit Array-Bedingung
19.05.2006 16:42:32
IngGi
Hallo Peter,
so müsste das gehen:

Sub Daten_kopieren()
Dim rng As Range
Dim strReporter As String
strReporter = InputBox("Welcher Reporter?")
With Sheets("data")
For Each rng In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If rng.Offset(0, 3) = strReporter Then
If rng.Offset(0, 2) >= Sheets("summary").Range("B1") Then
If rng.Offset(0, 2) <= Sheets("summary").Range("B2") Then
rng.EntireRow.Copy Destination:=Sheets("summary").Range("A65536").End(xlUp).Offset(1, 0)
End If
End If
End If
Next 'rng
End With
End Sub
Gruß Ingolf
Anzeige
;

Forumthreads zu verwandten Themen

Bestimmte Teile der Kopfzeile auf Fett stellen
tom

Hi,
ich habe per vba eine Kopfzeile defieniert. Nun möchte ich bestimmte Teile (einen Teil des Textes) fett und etwas größer darstellen.
Kann jemand helfen ?Gruss
14.06.2002 10:35:57
Thread-ID: 128662
2 Beiträge
Tabellenteil in andere Zeilen schreiben
Daniel

Hallo!
Ich habe eine Tabelle, die in den Spalten B-L, jeweils ab Zeile 13 Daten enthält.
Davon stehen in den Spalten C und I Datum(s). Oft stehen die übereinstimmenden Datums in I
aber nicht in der gleichen Zeile wie die in C. Das möchte ich gerne ändern, indem die Inhalte aus I-L,<...
13.05.2008 10:59:54
Thread-ID: 977032
5 Beiträge
Wenn Zeichenfolge Teil der Zelle, ganze Zeile kopieren
moonrunner

Hallo zusammen,
ich möchte aus einer großen Tabelle die ganze Zeile kopieren, wenn in der Spalte E die Zeichen mit "2019" beginnen, Die Zeichenkette in Spalte ist 8 Zeichen lang.
Meine Ansätze sind:
Dim A As String
A = Left(2019, 8)
ThisWorkbook.Worksheets(1).Activate
A...
16.01.2020 16:58:59
Thread-ID: 1734633
3 Beiträge
Teile der tabelle eine Zeile nach oben
Christian
Hallo, ich bitte um eure Ideen, wie ich das Problem einfacher lösen kann als Cut + Paste, keine Ahnung, PQ, VBA, bin da für beides offen.

Habe eine Tabelle mit 290 Zeilen und 1765 Spalten.

72 der Texte in Zeile 97 beginnen mit mrs

Wie schaffe ich es in diesen 72 Spalten d...
21.03.2023 15:51:33
Thread-ID: 1924888
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige