Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswahlkriterien bei Zellenkopierung

Auswahlkriterien bei Zellenkopierung
08.10.2003 12:24:56
Frank Erdmann
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

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

Betreff
Datum
Anwender
Anzeige
AW: Auswahlkriterien bei Zellenkopierung
08.10.2003 12:36:31
Lutz
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
AW: Auswahlkriterien bei Zellenkopierung
08.10.2003 14:30:05
Frank Erdmann
hhmmm das funzt net lutz
der labert dann irgendwas von "end with ohne with"
AW: Auswahlkriterien bei Zellenkopierung
08.10.2003 14:38:17
Hajo_Zi
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/

Anzeige
AW: Auswahlkriterien bei Zellenkopierung
08.10.2003 14:49:33
Frank Erdmann
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
AW: Auswahlkriterien bei Zellenkopierung
08.10.2003 14:52:50
Hajo_Zi
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/

Anzeige
AW: Auswahlkriterien bei Zellenkopierung
08.10.2003 16:01:14
Frank Erdmann
axo .. ^^
trotzdem thx

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige