Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

2 Bedingungen - ZÄHLENWENN
Toby

Hi!
Unten meine aktuelle Formel. Nun möchte ich aber, daß Excel zählen soll, wenn es ungleich X und ungleich Leerfeld ist.
Oder er soll nur dann zählen, wenn eine Zahl drin steht.
=ZÄHLENWENN(C3:AJ3;"X")
Bestimmt leicht für euch ...
Danke, Toby ...
10.08.2008 18:26:00
Thread-ID: 1000661
4 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Anzeige
HÄUFIGKEIT - F9 bringt 2 unterschiedl. Ergebnisse
{Boris}

Hi Leute,
bin grad etwas irritiert. Ich werte die Formel
=HÄUFIGKEIT({1.2.3.4.5.5};{5.3.2.2})
in der Bearbeitungsleiste mit F9 aus. Da bekomme ich 2 unterschiedliche Ergebnisse, mal so und mal so, in völlig wirrer und nicht nachvollziehbarer Abfolge:
1. das erwartete Ergebnis:
06.09.2008 12:40:00
Thread-ID: 1007832
8 Beiträge
Zählenwenn in einer Tabelle
Marius

Hallo,
ich habe eine Liste mit verschiedenen Rechnern und Betriebssysteme und den dazugehörigen Lizenzarten (OEM, VOL usw.)
Jetzt möchte ich im Rahmen einer Software-Inventur ausgeben, wieviele Lizenzen gekauft sind und wieviele Lizenzen installierte sind.
Das ganze sieht wie folgt...
08.09.2008 16:28:00
Thread-ID: 1008194
2 Beiträge
eine Info aus mehreren Blättern holen und adieren
Peter

Hallo,
folgende Situation: 10 Arbeiter - 10 Stundenzettel. Doch nicht alle 10 Arbeiter arbeiten immer gleichzeitig auf einer Baustelle. Manchmal arbeiten nur 5, manchmal 3 oder manchmal 7, ganz unterschiedlich eben. Und jeder der Mitarbeiter arbeitet unterschiedlich lang auf einer Baustelle...
08.09.2008 19:25:00
Thread-ID: 1008242
2 Beiträge
Fällt Datum in einen Datumbereich dann Eintrag
Josef

Guten Morgen!
Ich habe in der Tabelle 1 in der Spalte A sechsstellige Zahlen stehen.
In derSpalte E stehen Datumsbereiche z.B. 31.05.07-06.06.07.
In der Tabelle stehen in der Spalte A ebenfalls diese sechsstelligen Zahlen, In der Spalte D steht jeweils ein Datum.
Ich möchte jetz...
12.09.2008 07:20:00
Thread-ID: 1009268
10 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
einen Kreis einfügen in bild dynamisch
Karel

Hallo Leute,
mochte gern ein vordefinierten Rote und / oder Grüne Kreis einfügen in mehrere Bilder, zum markierungszwecken bestimmten bereichen in einer Bild.
Kreis muss da Positioniert werden wo mauszeicher sich befindet und uber Rechter Maustast Menu aufruf sein, da kann mann dann be...
23.09.2008 21:06:00
Thread-ID: 1011887
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige