Auswahlkriterien bei Zellenkopierung

Bild

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
Bild


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


Bild


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"


Bild


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/



Bild


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


Bild


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/



Bild


Betrifft: AW: Auswahlkriterien bei Zellenkopierung
von: Frank Erdmann
Geschrieben am: 08.10.2003 16:01:14

axo .. ^^
trotzdem thx


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Wenn Formel"