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
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige