Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alles was < 10 in nächstes Tabellenblatt

Forumthread: Alles was < 10 in nächstes Tabellenblatt

Alles was < 10 in nächstes Tabellenblatt
23.07.2002 13:22:44
mattis
Hallo Forumsler.

Ich habe folgende Aufgabe:

In einer Tabelle sind in Spalte A sehr viele Einträge
und in Spalte B dazugehörige Funktionswerte.

Wenn nun ein Wert in Spalte B kleiner als 10 ist
soll der Wert mit vorangestelltem Ausgangswert von
Spalte A in das zweite Tabellenblatt geschrieben werden.

Bitte um VBA-Lösung
Gruß Mattis

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Alles was < 10 in nächstes Tabellenblatt
23.07.2002 13:28:17
Konrad
Ganz einfach:
du gehst die Spalte A einfach durch bis leere Zelle kommt. in dieser Schleife prüfst du einfach auf den Wert in Spalte B. Ist der kleiner als 10 tabelle1.range("A" & i&":B" & i).select udn anschliend selection.copy. Dann in Tabelle2 springen und mit .paste wieder reinkopieren.
Dann zum nächsten wert in deiner While wend schleife....
Anzeige
Re: Alles was < 10 in nächstes Tabellenblatt
23.07.2002 13:33:50
Ralph P.
Hallo Mattis

probier mal folgendes:

sub transfer()
laR1 = Worksheets(1).Cells(Row.Count, 1).End(xlUp).Row
For i = 1 To laR1
laR2 = Worksheets2Cells(Rows.Count, 1).End(xlUp).Row
Worksheets(1).Select
If Range("B" & i).Value < 10 Then
Range("A" & i, "B" & i).Copy
ActiveSheet.Paste Destination:=Worksheets(2).Range("A" & laR2 + 1)
Else
End If
Next i

End Sub

Anzeige
Re: Alles was < 10 in nächstes Tabellenblatt
23.07.2002 13:46:06
mattis
Mit kleiner Korrektur voll lauffähig

Danke
mattis


fünfundsechsizgtausendfünhundertundeinpaarzerquets
23.07.2002 14:51:06
mattis
Die Werte stammen aus einem Laborversuch
mit automatischer Aufzeichnung, daher
bekomme ich 65536 Werte. Was nun nicht
so angenehm ist, dass die Auswertung anhand
des Skriptes fast 1 Minute dauert.

Geht das u. U. auch schneller?

Gruß Mattis

P.S. bei meiner Korrektur muss es
am Schluß natürlich

heissen.

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige