Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
228to232
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
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zeilen kopieren

Bestimmte Zeilen kopieren
13.03.2003 17:38:03
Hans-Georg
Hallo Excel-Experten,
ich brauch mal wieder Eure Hilfe.
In Tabelle 1 stehen in Spalte A u. B je 20 Namen, in Spalte C 20 Datum's.
In Tabelle 2 sollen nun in Spalte A u. B, nur die Namen zeilenweise kopiert werden, die ein bestimmtes Datum in Tabelle 1 Spalte C überschritten haben. Ich habe es versucht mit BEREICH u. SVERWEIS aber das klappt nicht so wie es mir vorstelle.

Besten Dank schon mal und Gruß Hans-Georg.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bestimmte Zeilen kopieren
13.03.2003 18:31:32
Carsten

ih Hans - Georg

versuchs mal mit folgendem Makro
das zu vergleichende Datum bitte in Zelle "d1" der Tabelle1 eintragen sonst funzt es nicht...
achso, das Datumsformat müsste als zahl ohne punkte eingegeben werden z.B. 03.03.03 = 30303

Sub Makro1()

Dim gefunden As Boolean
Dim Vorname As String
Dim Nachname As String

gefunden = False

Sheets("Tabelle1").Activate
Range("c1").Select

Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value > Range("d1").Value Then
gefunden = True
Nachname = ActiveCell.Offset(0, -1).Value
Vorname = ActiveCell.Offset(0, -2).Value
End If

If gefunden = True Then

Sheets("Tabelle2").Activate
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Vorname
ActiveCell.Offset(0, 1).Value = Nachname
gefunden = False
End If

Loop Until ActiveCell.Value = "" Or ActiveCell.Value = leer


End Sub


Anzeige
Re: Bestimmte Zeilen kopieren
13.03.2003 18:43:55
Hans-Georg

Hi Carsten,
wenn möglich sollte das ganze ohne Makro auskommen. Das auszuwertende Datum steht auch immer in der Zeile, die in Tabelle 2 nicht erscheinen soll. Außerdem soll es in Tabelle 2 keine Leerzeilen geben und gerade das ist eigentlich mein Problem.
Trotzdem Danke, Gruß Hans-Georg.

Re: Bestimmte Zeilen kopieren
13.03.2003 22:27:46
th.heinrich

hallo Hans-Georg,

DATEN-FILTER-SPEZIALFILTER

gruss thomas

Re: Bestimmte Zeilen kopieren
13.03.2003 22:28:06
th.heinrich

hallo Hans-Georg,

DATEN-FILTER-SPEZIALFILTER

gruss thomas

Re: Bestimmte Zeilen kopieren
14.03.2003 08:21:43
Hans-Georg

Hi Thomas,
mit Spezialfiltern müßte es klappen, damit muß ich mich aber erst einmal vertraut machen.
Besten Dank für den Tipp und sollte es trotzdem nicht klappen melde ich mich nochmal.

Gruß Hans-Georg.

Anzeige
Formellösung:
14.03.2003 23:18:55
Boris

Re: Formellösung:
15.03.2003 17:31:40
Hans-Georg

Hi Boris,
deine Formel ist fast die perfekte Lösung. Es soll aber das Datum in jeder Zeile überprüft werden und wenn "ja" die überprüfte Zeile in Tabelle 2 kopiert werden. Dort sollen aber keine Leerzeilen entstehen. Leerzeilen ausblenden funktioniert leider auch nicht weil die Tabellen "Formulare" sind und sie sich beim ausdrucken sonst verkleinern. Ich hoffe du verstehst was ich meine.

Gruß Hans-Georg.

Re: Formellösung:
16.03.2003 21:03:22
Boris

Hi Hans-Georg,

>deine Formel ist fast die perfekte Lösung.
Vielen Dank!
>Es soll aber das Datum in jeder Zeile überprüft werden und wenn "ja" die überprüfte Zeile in Tabelle 2 kopiert werden.
Genau das macht die Formel.
>Dort sollen aber keine Leerzeilen entstehen.
Grade das ist ja das Schöne an der Formellösung - es gibt NIEMALS Leerzeilen.
>Leerzeilen ausblenden funktioniert leider auch nicht weil die Tabellen "Formulare" sind und sie sich beim ausdrucken sonst verkleinern.
Somit braucht man nix ausblenden - denn es gibt ja keine Leerzeilen.
>Ich hoffe du verstehst was ich meine.
Ja, ich habe verstanden, daher schlage ich vor, dass du die Lösung nochmal versuchst genau umzusetzen, denn es ist GENAU das, was du brauchst...;-)))
Wenn du noch Probleme haben solltest, melde Dich wieder.


Viele Grüße

Boris

P.S.: Sorry für die späte Rückmeldung - war aber vorher nicht online.

Anzeige

302 Forumthreads zu ähnlichen Themen

Nur bestimmten Zellbereich kopieren u. exportieren
Bernd

Hallo Freaks,
ich habe diesen Code für das Exportieren bestimmter Tabellenblätter aus dem Forum-Archiv.
Wer wäre bitte so nett und würde den Code dahingehend anpassen, dass nur die Zellen A1:P36 des Sheets "Export" kopiert werden?
Wenn es nicht zu unverschämt ist, wäre ich an nachs...
17.03.2009 16:11:25
Thread-ID: 1061150
2 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Anzeige
Kopieren in andere Tabelle
liese

Hallo Forumfreunde!
Bitte um Hilfe zu folgendem Problem:
Bei Doppelklick im Bereich H10:H15 in Tabelle1 (z.B. H7) soll der Zellinhalt nach Tabelle2
in Zelle D5 kopiert werden und der Inhalt zwei Zellen neben dem Doppelklick (J7)
ebenfalls nach Tabelle2 in K10 kopiert werden.
...
19.08.2009 13:20:01
Thread-ID: 1097094
10 Beiträge
Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Nur bis zu einem Bestimmten Zeichen kopieren
Excellent

Hallo,
ich habe z.B. in einer Zelle in Excel diesen Dateipfad stehen: C:\Ordner1\UnterordnerXY\Ordner0815
Nun möchte ich, wenn ich auf einen Button drücke nur noch folgendes in der Zelle stehen haben:
C:\Ordner1\UnterordnerXY\
Es könnte auch sein, dass der Pfad lediglich so auss...
24.09.2009 11:29:13
Thread-ID: 1105207
8 Beiträge
Spalten H & I in ein neues Tabellenblatt kopieren
Henning

Hallo zusammen,
wie man schon an meinem Level erkenne kann, bin ich ein Anfänger was VBA angeht.
Nun zu meinem Problem.
Ich habe ein Tabellenblatt mit dem Namen "Stammdaten" in diesem fängt
ab der 18 Zeile in den Spalten H und I folgende Tabelle an. Es folgen noch weitere Spalt...
23.11.2009 22:01:03
Thread-ID: 1119606
7 Beiträge
variables kopieren in ein anderes Tabellenblatt | Herbers Excel-Forum
Space
Hallo Community
Ich suche einen VBA Code um folgendes Problem mittels Button zu lösen:
ich würde gerne aus einem Tabellenblatt "Tabelle1" von Zeile 14 bis Spalte Q bis zum letzen vorhandenen Eintrag alles koperen und das ganze in das Tabellenblatt "Tabelle2" einfügen. In "Tabelle2" soll es...
15.01.2010 12:12:20
Thread-ID: 1130211
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
6
1
9
29
7
6
4
2
7
2
6
8
9
4
3
5
8
2
2
1
2
4