Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
136to140
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
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige