nach Kriterium in anderes Blatt kopieren

Forumthread: nach Kriterium in anderes Blatt kopieren

15.01.2005 15:53:45

Tim

Hallo zusammen,
komme einfach nicht weiter!
Ich möchte gerne meine Daten nach einem Kriterium
aus Sheet3 in Sheet4 kopieren lassen.
Es sollen alle Daten kopiert werden, die ein "x" in
Sheet3 Spalte A enthalten.
Die kopierten Daten in Sheet4 sollen nicht durch eine
Leerzeile getrennt werden.
Bin für jede Hilfe Dankbar.
Gruß
Tim

Tabelle3

	A	B	C	D	E	F	G	H	I	J	K	L
7		0			0,97			0,12	0,90
8	x	10			0,96			0,27	0,91
9	x	20			0,91			0,41	0,88			OK
10		30			0,84			0,53	0,84

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Tabelle4

	A	B	C	D	E	F	G
6
7		10	0,96	0,27	0,91
8		20	0,91	0,41	0,88	OK
9

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: nach Kriterium in anderes Blatt kopieren

15.01.2005 16:25:57

Josef

Hallo Tim!
Das sollte es tun!
Der Code gehört in ein allgemeines Modul!
(Alt+F11 um in den VBE zu wechseln &gt Einfügen &gt Modul)

Option Explicit
Sub kopieren()
'by Josef Ehrensberger
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer
On Error GoTo ERRORHANDLER
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
Set wks1 = Sheets("Sheet3")
Set wks2 = Sheets("Sheet4")
myRow = 3   'Startzeile in Sheet4! -      anpassen <---
lastCol = 12 'Letzte Spalte mit Daten -   anpassen <---

'Letzte gefüllte Zeile in Spalte "A" (Sheet3) ermitteln
lastRow = IIf(wks1.Range("A65536") <> "", 65536, _
wks1.Range("A65536").End(xlUp).Row)
'Datenbereich in Sheet4 leeren!
wks2.Range(wks2.Cells(myRow, 2), wks2.Cells(65536, lastCol)).ClearContents
   For lRow = 1 To lastRow
      If wks1.Cells(lRow, 1) = "x" Then

      'Daten kopieren
         wks1.Range(wks1.Cells(lRow, 2), wks1.Cells(lRow, lastCol)). _
         Copy wks2.Cells(myRow, 2)

         'Leerzellen entfernen
         wks2.Range(wks2.Cells(myRow, 2), wks2.Cells(myRow, lastCol)).Cells. _
         SpecialCells(xlCellTypeBlanks).Delete

         myRow = myRow + 1
      End If
   Next

ERRORHANDLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With

End Sub

AW: nach Kriterium in anderes Blatt kopieren

15.01.2005 16:49:10

Tim

Hallo Sepp,
danke für deine schnelle Antwort!
Leider funzt es nicht.

Code in ein allgemeines Modul eingefügt,
Schaltfläche zugewiesen und ...
es funzt leider nicht.
Kannst du eventuell noch einmal nachschauen?
Gruß
Tim

AW: nach Kriterium in anderes Blatt kopieren

15.01.2005 16:58:18

Josef

Hallo Tim!
Mein Code funzt!
Stimmen die Tabellennamen?
Hast du verbundene Zellen?
Gruß Sepp

AW: nach Kriterium in anderes Blatt kopieren

15.01.2005 18:09:03

Tim

Hallo Sepp,
hab alles in einer neuen Mappe ausprobiert, klappt
aber aus welchen Gründen auch immer nicht!
Hier noch mal der angepasste Code in einer Beispielmappe:
https://www.herber.de/bbs/user/16148.xls
Vielleicht hab ich ja doch einen Fehler gemacht, wüßte dann
aber nicht wo.
Gruß
Tim

wer lesen kann.....

15.01.2005 18:25:18

Josef

Hallo Tim!
Warum schrieb ich:
Stimmen die Tabellennamen?
https://www.herber.de/bbs/user/16149.xls
Gruß Sepp

AW: wer lesen kann.....

15.01.2005 19:02:22

Tim

Hi Sepp,
Du hast Recht!
Aber....
als NichtVBA´ler ist es doch schon schwierig,
ob es nun
Set wks1 = Sheets("Sheet1")
Set wks2 = Sheets("Sheet2")
oder
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
heißt.
Wie heißt es doch so schön:
"Der Teufel steckt oft im Detail"
Jedenfalls wäre ich so schnell nicht
drauf gekommen!
Vielen, vielen Dank für Deine Hilfe.
Gruß
Tim

Beliebteste Forumthreads (12 Monate)

nach Kriterium in anderes Blatt kopieren

Forumthread: nach Kriterium in anderes Blatt kopieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread