Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenbereich kopieren wenn Bedingung

Zellenbereich kopieren wenn Bedingung
05.01.2007 08:37:35
Daniel
Hallo!
Ich möchter per VBA( andere Lösungen kommen nicht in Frage) die Zellen A-H vom Blatt "Quelle" zum Blatt "Ziel" kopieren, aber nur wenn in L oder M eine 1 steht.
In "Ziel" sollen die Einträge fortlaufend stehen, also immer in der nächsten Zeile und es sollen nur Inhalte kopiert werden.
Wie muss so ein Makro aussehen. Habe davon leider wenig Ahnung.
Danke für Hilfe!
Daniel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenbereich kopieren wenn Bedingung
05.01.2007 09:43:41
Erich
Hallo Daniel,
wenn die Spalte N in "Quelle" frei ist und verwendet werden kann und wenn es keinen Autofilter gibt,
ginge das z. B. so: 
Option Explicit
Sub Bestimmte_Saetze_kopieren()
' Quellspalten A bis M müssen in Zeile 1 Überschriften haben (ohne Lücken)
' Kopiert werden die Quellspalten 1 bis 8 der Zeilen,
'    in denen in Spalte L oder M (12 oder 13) die Zahl 1 steht.
' Quellspalte N (14) wird gelöscht.
Dim lngZ As Long
With Sheets("Quelle")
lngZ = .Cells(Rows.Count, 12).End(xlUp).Row
If lngZ < .Cells(Rows.Count, 13).End(xlUp).Row Then _
lngZ = .Cells(Rows.Count, 13).End(xlUp).Row
.Columns(14).Clear
.Cells(1, 14) = "xxx"
Range(.Cells(2, 14), .Cells(lngZ, 14)).FormulaR1C1 = "=((RC[-2]=1)+(RC[-1]=1))>0"
.Columns(14).AutoFilter
.Columns(14).AutoFilter Field:=1, Criteria1:=True
Range(.Cells(2, 1), .Cells(lngZ, 8)).Copy
End With
With Sheets("Ziel")
lngZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZ, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
With Sheets("Quelle")
.Columns(14).AutoFilter
.Columns(14).Clear
End With
End Sub
Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht allen einen guten Start ins neue Jahr!
Anzeige
AW: Zellenbereich kopieren wenn Bedingung
05.01.2007 09:48:55
Daniel
Hallo Erich,
einen Filter will ich nicht benutzen. Die Struktur des Blatts und die Reihenfolge der Daten muss unbedingt beibehalten werden.
Die Spalte I ist außerdem leer.
Danke,
Daniel
AW: Zellenbereich kopieren wenn Bedingung
05.01.2007 09:54:40
Ramses
Hallo
Hast du den Beitrag von Erich überhaupt richtig gelesen ?
Ich empfehle:
Ausprobieren - Nachdenken - Dann Beitrag schreiben
Gruss Rainer
AW: Zellenbereich kopieren wenn Bedingung
05.01.2007 10:02:16
Daniel
Hallo Rainer, hallo Erich!
Ich bitte vielmals um Entschuldigung. Ich hatte das falsch verstanden und daher nicht ausprobiert.
Es geht aber wie gewünscht!!!
Vielen, Vielen Dank daher!
Daniel
Danke für Rückmeldung - und neue Version
05.01.2007 14:10:23
Erich
Hallo Daniel,
der Code war nur ein "Schön-Wetter"-Code - er läuft richtig, wenn in Spalte L oder M eine 1 steht, sonst produziert er Unsinn.
Deshalb hier eine verbesserte Version: 
Option Explicit
Sub Bestimmte_Saetze_kopieren()
' Quellspalten A bis M müssen in Zeile 1 Überschriften haben (ohne Lücken)
' Kopiert werden die Quellspalten A-H (1-8) der Zeilen,
'    in denen in Spalte L oder M (12 oder 13) die Zahl 1 steht.
' Quellspalte N (14) wird gelöscht.
Dim lngZ As Long
With Sheets("Quelle")
lngZ = .Cells(Rows.Count, 12).End(xlUp).Row
If lngZ < .Cells(Rows.Count, 13).End(xlUp).Row Then _
lngZ = .Cells(Rows.Count, 13).End(xlUp).Row
If lngZ <= 1 Then Exit Sub
If WorksheetFunction.SumIf(Range(.Cells(2, 12), .Cells(lngZ, 13)), 1) = 0 Then Exit Sub
.Columns(14).Clear
.Cells(1, 14) = "xxx"
Range(.Cells(2, 14), .Cells(lngZ, 14)).FormulaR1C1 = "=1*(((RC[-2]=1)+(RC[-1]=1))>0)"
.Columns(14).AutoFilter
.Columns(14).AutoFilter Field:=1, Criteria1:=1
Range(.Cells(2, 1), .Cells(lngZ, 8)).Copy
End With
With Sheets("Ziel")
lngZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngZ, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
Sheets("Quelle").Columns(14).Clear
Sheets("Quelle").Columns(14).Clear
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

312 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 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
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9