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
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich copy paste mit Bedingung

Bereich copy paste mit Bedingung
04.01.2021 14:54:25
Mike
Hallo,
stehe vor folgendem Problem:
In der Spalte AD im ActiveSheet ab Zeile 4 stehen Formeln bis AD500.
Wenn diese auf dem aktiven Sheet greifen, stehen Zahlen in den Zellen, oder die Zelle ist "leer" (Formeln bleiben)
Nun möchte ich für alle Zeilen, in denen in AD eine Zahl steht, die Werte der Spalten AG - AW kopieren und
in Tabelle 1 Spalte E nächste freie Zeile die Werte einfügen.
danke und gruß
Mike

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich copy paste mit Bedingung
04.01.2021 15:22:16
worti
Hallo Mike,
zum Beispiel so: 
Sub Kopieren()
Dim ws As Worksheet
Dim rngC As Range
Dim lngZielzeile As Long
Set ws = ActiveSheet
lngZielzeile = Worksheets("Tabelle1").Cells(Rows.Count, 5).End(xlUp).Row + 1
For Each rngC In Range("AD4:AD500")
a = rngC.Row
If Not rngC.Value = "" Then
ws.Range("AG" & rngC.Row).Resize(1, 16).Copy _
Destination:=Worksheets("Tabelle1").Range("E" & lngZielzeile)
lngZielzeile = lngZielzeile + 1
End If
Next rngC
Set ws = Nothing
End Sub

AW: Bereich copy paste mit Bedingung
04.01.2021 16:59:50
mike
Hallo Worti,
danke, klappt fast. Wollte aber ja nur die Werte einfügen. Daher klappte das mit Destination leider nicht.
Ein Frage zur Performance:
du hast ja eine Schleife gebaut und das dauert bei 10 Einträgen nur ein paar Sekunden.
Bei 500 und mehr kann das dauern.
Gibt es eventuell noch eine schnellere Lösung.
Hätte noch die Spalten AA bis AC als Hilfsspalten zur Verfügung.
Habe den Code entsprechend angepasst.
For Each rngC In Range("AD4:AD500")
a = rngC.Row
If Not rngC.Value = "" Then
wsq.Range("AG" & rngC.Row).Resize(1, 16).Copy
wsz.Range("E" & lngZielzeile).PasteSpecial Paste:=xlPasteValues
lngZielzeile = lngZielzeile + 1
End If
Next rngC
gruß
Mike
Anzeige
AW: Bereich copy paste mit Bedingung
04.01.2021 20:04:31
volti
Hallo Mike,
wenn Du nur die Werte übernehmen möchtest, würde ich gar nicht kopieren, sondern die Werte direkt übernehmen.
Bei den paar Zahlen bis 1000 Zeilen reicht m.E. das u.a. Makro, ansonsten mit Array arbeiten.
Code:


[Cc]



Option Explicit

Sub Daten_Uebertragen()
  Dim WsQ As Worksheet, WsZ As Worksheet
  Dim rngC As Range, lngZielzeile As Long
  
  Set WsZ = Worksheets("Tabelle1")      ' Anpassen!!!
  Set WsQ = Worksheets("Tabelle3")      ' Anpassen!!!
  lngZielzeile = WsZ.Cells(Rows.Count, "E").End(xlUp).Row + 1

  Application.ScreenUpdating = False
  For Each rngC In WsQ.Range("AD4:AD500")
      If rngC.Value <> "" Then
         WsZ.Range("E" & lngZielzeile).Resize(1, 16).Value = _
         WsQ.Range("AG" & rngC.Row).Resize(1, 16).Value
         lngZielzeile = lngZielzeile + 1
      End If
  Next rngC
  Application.ScreenUpdating = True

End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bereich copy paste mit Bedingung
05.01.2021 07:34:16
Mike
Moin Karl-Heinz,
klappt soweit schneller als das Kopieren.
Da ich 5 von den "Tabellen3" (SE1 bis SE5) habe, die alle identisch sind, sollte das per WSQ = active sheet eigentlich gehen.
Klappt irgendwie, kopiert auch Werte ins Ziel, jedoch meckert VBA diese Zeile
If rngC.Value "" Then
mit
Laufzeitfehler 13 Typen unverträglich an.
Aber nur bei den SE2 bis SE4, SE1 und SE5 laufen durch.
Weist du Rat?
danke und vg
Mike
AW: Bereich copy paste mit Bedingung
05.01.2021 08:51:04
volti
Hallo Mike,
da verträgt sich der Inhalt der Zelle nicht mit der Abfrageform, warum weiß ich nicht.
Da müsstest Du bitte mal schauen, was genau in der/den betroffenen Zelle(n) drin steht (Beispiel).
Lief wortis Version denn durch? Ist für mich zwar irgendwie das gleiche, aber vielleicht klappt es besser.
If Not rngC.Value = "" Then
VG KH
Anzeige
AW: Bereich copy paste mit Bedingung
05.01.2021 09:08:03
volti
Hallo Mike,
steht in den betroffenen Feldern ggf. ein Fehlerwert wie #WERT oder #BEZUG?
Dann probiere es mit
If rngC.Text "" Then
In diesem Fall werden aber auch die fehlerhaften Werte mitübertragen.
Wenn Du die fehlerhaften Daten nicht übertragen willst, versuche mal folgendes Update...
Code:


[Cc]



Option Explicit

Sub Daten_Uebertragen()
  Dim WsQ As Worksheet, WsZ As Worksheet
  Dim rngC As Range, lngZielzeile As Long
  
  Set WsZ = Worksheets("Tabelle1")      ' Anpassen!!!
  Set WsQ = Worksheets("Tabelle3")      ' Anpassen!!!
  lngZielzeile = WsZ.Cells(Rows.Count, "E").End(xlUp).Row + 1

  Application.ScreenUpdating = False
  For Each rngC In WsQ.Range("AD4:AD500")
      If Not IsError(rngC) Then
         If rngC.Value <> "" Then
            WsZ.Range("E" & lngZielzeile).Resize(1, 16).Value = _
            WsQ.Range("AG" & rngC.Row).Resize(1, 16).Value
            lngZielzeile = lngZielzeile + 1
         End If
      End If
  Next rngC
  Application.ScreenUpdating = True

End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Bereich copy paste mit Bedingung
05.01.2021 09:17:31
Mike
Hallo Karl-Heinz,
wenn man natürlich die Formeln nicht in allen Blätter anpasst, passiert genau das.......;-)
Und ja, Wortis Code lief durch, nur das er alles kopiert hatte anstelle der reinen Werte.
Jetzt klappt es.......
Danke
Mike

106 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
Excel Datei trotz Copy/ Paste Values zu groß
Max

Hallo liebe Helfer,
ich sitze gerade an einer Excel Datei, die riesig groß und langsam geworden ist. Ich habe per vlookup Daten aus einer Liste mit ~40.000 Zeilen auslesen müssen - klar, dass die Datei dabei sehr groß wird (40 MB). Im Anschluss habe ich alle Formeln per Copy/ Paste Special...
30.10.2009 20:14:13
Thread-ID: 1113418
4 Beiträge
Copy/paste per makro geht einfach nicht
Julian

Liebe Excelgemeinde,
ich bin vollkommen ratlos, ich möchte eine liste kopieren per:
Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy
was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen...
20.11.2009 20:16:25
Thread-ID: 1118957
4 Beiträge
Anzeige
ribbons ausschalten, copy and paste verhindern
manfred

Mit
enable control 21, false 'cut
enable control 19, false 'copy
enable control 22, false 'pste
enabel control 755, flase 'paste special
konnte ich bislang cut, copy und paste in der Menueleiste abschalten
mit
commandbars ("ToolBar List").enabled = false
das...
23.08.2010 10:57:26
Thread-ID: 1173683
2 Beiträge
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
copy and paste
ptonka

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
15.04.2011 16:44:11
Thread-ID: 1210638
8 Beiträge
copy-paste und bedingte Formatierung
Marlon

Guten Morgen,
eine Frage zum Kopieren und Einfügen:
Wenn ich Daten mit
range(Cells(lrow, 15), Cells(lrow + 1000, 53)).Copy
Cells(lrow + 1, 15).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
verschiebe, dann wird leider die be...
21.05.2011 12:44:08
Thread-ID: 1215456
5 Beiträge
Copy - paste hinter letzte Zeile
Burghard

Hallo,
ich möchte aus dem aktiven Tabellenblatt die aktive Zelle in ein anderes Tabellenblatt hinter die letzte belegte Zeile einfügen, aber in meinem Code steckt der Wurm:
Kann hier jemand helfend eingreifen?
Schönen Gruß
Burghard
================= Sub Test_C() letzte = Wor...
16.06.2011 14:51:35
Thread-ID: 1218588
7 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
10
5
3
3
4
1
6
7
4
6
2
5
3
3
8
6
3
1
2
5
1
3
3
2
2