Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler mit IF und AND

Forumthread: Fehler mit IF und AND

Fehler mit IF und AND
17.08.2005 13:39:57
Thomas
Hallo zusammen,
ich habe ein problem bei dieser Formel.
Es soll, wenn die zahl zwischen 1000 und 9999 liegt, die zahl "rauskopiert" werden.
Es werden aber auch 2,3,4,5,6 kopiert!
Warum? :-)

Private Sub CommandButton1_Click()
leer = 1
weit = Sheets("Tabelle1").Range("N59") * 59
For Each l In Tabelle1.Range("B15:B" & weit)
If l.Value >= "1000" And l.Value <= "9999" Then
l.Select
Set l = ActiveCell
ActiveCell.Copy
Sheets("Tabelle2").Range("A" & leer).PasteSpecial xlPasteValues
leer = leer + 1
CutCopyMode = False
End If
Next
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Fehler mit IF und AND
17.08.2005 13:50:49
Hajo_Zi
Hallo Thomas,
Option Explicit

Private Sub CommandButton1_Click()
Dim leer As Long
Dim weit As Long
Dim l As Range
leer = 1
weit = Sheets("Tabelle1").Range("N59") * 59
For Each l In Tabelle1.Range("B15:B" & weit)
If l.Value >= 1000 And l.Value <= 9999 Then
l.Copy
Sheets("Tabelle2").Range("A" & leer).PasteSpecial xlPasteValues
leer = leer + 1
End If
Next
Application.CutCopyMode = False
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Fehler mit IF und AND
17.08.2005 14:06:42
Thomas
Hallo Hajo,
vielen Dank für die schnelle Antwort. So klappt es natürlich!!
Wenn Du mir jetzt auch noch auf die schnelle verraten kannst, wie ich es anstelle das die komplette Zeile kopiert wird, kann ich für heute feierabend machen ;-)
Mfg, Thomas
AW: Fehler mit IF und AND
17.08.2005 14:17:35
Hajo_Zi
Hallo Thomas,
Rows(l.Row).Copy
Sheets("Tabelle2").Rows(leer).PasteSpecial xlPasteValues
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Fehler mit IF und AND
17.08.2005 14:20:26
Thomas
Hallo Hajo,
vielen Dank, klappt bestens !! Feierabend ist gerettet ;-)
;

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