Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren, aber ohne bestimmte Zeilen

Kopieren, aber ohne bestimmte Zeilen
17.01.2006 14:24:25
Daniel
Hallo!
Ich möchte per Makro aus einem Blatt die Spalten A bis G ab der 2. Zeile in ein anderes Blatt aber der 1. Zeile kopieren. Im Zielblatt müssten vorher die Spalten A bis G die Inhalte gelöscht werden.
Nun kommt aber das Problem, dass ich nicht alle Zeilen kopieren will. Einige, nämlich die bei denen in Spalte H "SL" steht, sollen nicht mit kopiert werden.
Wie macht man das?
Für hilfe wäre ich dankbar! Grüße,
Daniel

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren, aber ohne bestimmte Zeilen
17.01.2006 15:38:39
Peter
Hallo Daniel,
so sollte es gehen:

Sub Kopieren()
Dim QSh        As Worksheet
Dim ZSh        As Worksheet
Dim lngLastRow As Long
Dim lngQuelle  As Long
Dim lngZiel    As Long
Set QSh = Worksheets("Tabelle1")
Set ZSh = Worksheets("Tabelle2")
lngLastRow = ZSh.Cells(Rows.Count, 1).End(xlUp).Row
ZSh.Range("A1:G" & lngLastRow).ClearContents
lngLastRow = QSh.Cells(Rows.Count, 1).End(xlUp).Row
If lngLastRow < 2 Then lngLastRow = 2
lngZiel = 1
For lngQuelle = 2 To lngLastRow
If QSh.Cells(lngQuelle, 8).Value <> "SL" Then
QSh.Range("A" & lngQuelle & ":G" & lngQuelle).Copy _
Destination:=ZSh.Range("A" & lngZiel & ":G" & lngZiel)
lngZiel = lngZiel + 1
End If
Next lngQuelle
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
Genau so! Danke! o.T.
17.01.2006 16:00:54
Daniel
.

302 Forumthreads zu ähnlichen Themen

Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
Anzeige
Word nach Excel kopieren mit Zeilenumbruch/Absatz
Christian

Hi Leute,
hab jetzt mal rumgesucht im Archiv, aber leider nichts gefunden.
Habe ein Word-File, das ich jetzt nach Excel übertragen will.
Ich kopiere hierfür Zeile für Zeile, was auch wunderbar funktioniert.
Was ist jedoch, wenn ich in der Word-Tabelle einen Zeilenumbruch habe?
04.11.2008 07:42:00
Thread-ID: 1021456
5 Beiträge
Zellenwert nicht kopieren
HannaG

Hallo,
mir fällt nicht ein, wie ich die Überschrift am Besten formulieren könnte. Besser ich erkläre das Problem:
Ich habe den Code in Zeile10 z.b.
=WENN(UND(A7>8.98;A7 Jetzt will ich den Code in die Zeilen darunter zihen, sodaß sich natürlich jeweils AB10 und AE10 in AB11 und AB...
07.11.2008 14:41:52
Thread-ID: 1022683
3 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
kkleinste (ohne ausgeblendete Spalten)
Rainer

Hallo,
suche nach einer Möglichkeit, kkleinste jedoch ohne Berücksichtigung ausgeblendeter SPALTEN zu nutzen.
Habe in einem anderen Forum schon gepostet und bekam nur die Funktion TEILERGEBNIS mitgeteilt. Diese wiederrum klappt wohl nur mit Zeilen. Deshalb habe ich weiter gesucht und bi...
07.02.2009 19:33:00
Thread-ID: 1048127
14 Beiträge
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
Da...
11.03.2009 16:06:48
Thread-ID: 1059163
3 Beiträge
Anzeige

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
9
2
4
2
2
11
3
13
3
2
2
1
20
1
1
5
2
2
1
7
8
5
12
7
2