Auswahlkriterien bei Zellenkopierung

• Auswahlkriterien bei Zellenkopierung von Frank Erdmann vom 08.10.2003 12:24:56
  • AW: Auswahlkriterien bei Zellenkopierung - von Lutz am 08.10.2003 12:36:31
    • AW: Auswahlkriterien bei Zellenkopierung - von Frank Erdmann am 08.10.2003 14:30:05
      • AW: Auswahlkriterien bei Zellenkopierung - von Hajo_Zi am 08.10.2003 14:38:17
        • AW: Auswahlkriterien bei Zellenkopierung - von Frank Erdmann am 08.10.2003 14:49:33
          • AW: Auswahlkriterien bei Zellenkopierung - von Hajo_Zi am 08.10.2003 14:52:50
            • AW: Auswahlkriterien bei Zellenkopierung - von Frank Erdmann am 08.10.2003 16:01:14

Betrifft: Auswahlkriterien bei Zellenkopierung
von: Frank Erdmann
Geschrieben am: 08.10.2003 12:24:56
Hallo erstma,

der Betreff mag ziemlich verwirrend sein ^^, aber mein Prob ist:

Ich habe eine Tabelle in der in der ersten spalte(A1) zahlenkombinationen vorganden sind Bsp:
II A1 II
8294-01
8294-01
8294-04 <=ich will aber nur diese in meiner 2ten tabelle haben
8294-04 <=´und zwar, die erste zeile unter A1 etc
8294-04 <=
8294-04 <=
8294-18
8294-56

Sub zellen()
Dim i%
Dim k%
Dim l%
Dim j As String
k = 0
l = 4
j = "-"
i = 8294
If Worksheets("Tabelle1").Range("A1:A100").Value(i, j, k, l) Then
Worksheets("Tabelle2").Range("A2:A10") = Worksheets("Tabelle1").Range("A2:A10")
End If
End Sub

aber irgendwie krieg ich das net hin
helft mir !! .. bitte ^^
bye
frank

Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Lutz
Geschrieben am: 08.10.2003 12:36:31
Hi Frank

versuche mal so:

Sub zellen()
With Sheets("Tabelle1")
aRow = [A65536].End(xlUp).Row 'letzte nichtleere Zelle in Spalte A finden
x = 2
For i = 2 To aRow
If .Cells(i, 1).Value = "8294-04" Then
Sheets("Tabelle2").Cells(x, 1).Value = .Cells(i, 1)
x = x + 1
End If
End With
End Sub

Gruß
Lutz

Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Frank Erdmann
Geschrieben am: 08.10.2003 14:30:05
hhmmm das funzt net lutz
der labert dann irgendwas von "end with ohne with"

Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Hajo_Zi
Geschrieben am: 08.10.2003 14:38:17
Hallo Frank

ohne die Aufgabe zu lesen.

Option Explicit

Sub zellen()
With Sheets("Tabelle1")
Dim aRow As Long
Dim X As Long
Dim I As Long
aRow = 65536
If Range("A65536") = "" Then aRow = Range("A65536").End(xlUp).Row
X = 2
For I = 2 To aRow
If .Cells(I, 1).Value = "8294-04" Then
Sheets("Tabelle2").Cells(X, 1).Value = .Cells(I, 1)
X = X + 1
End If
Next I
End With
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/


Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Frank Erdmann
Geschrieben am: 08.10.2003 14:49:33
hehe danke hjo ... aber ohne die aufgabe zu lesen hättest du nicht meine bsp nummer im quelltext ham können ;D

thx
bye
frank

Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Hajo_Zi
Geschrieben am: 08.10.2003 14:52:50
Hallo Frank

im letzten Beitrag Stand ein Code und Du hatest den Fehler beschrieben. Ich habe nur den Code angepast.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/


Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Frank Erdmann
Geschrieben am: 08.10.2003 16:01:14
axo .. ^^
trotzdem thx