Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife funktioniert nicht zufriedenstellend

Schleife funktioniert nicht zufriedenstellend
andreas
Hallo zusammen
habe hier eine Tabelle bei der Werte von einem Tabellenblatt in ein anderes übertragen werden sollen.
Dazu muss in Blatt "Bestellungen" in Spalte "O" nach Wert "ja" gesucht werden und dann die Werte von Spalte B-P in Blatt "Bestellungen-Archiv" übertragen werden.
So wie es jetzt geschrieben ist funktioniert es zwar, aber es muss irgendwo am Schuss "Halt" eingegeben werden, ist nicht gut da die Tabelle immer unterschiedlich lang ist.
Zum anderen flunkert die Tabelle sobald mehrere Zeilen vorhanden sind.
Man könnte den Block der durchsucht wird eingrenzen in Spalte "C" ab Zeile 12, da sind immer Werte eingetragen
https://www.herber.de/bbs/user/72354.xls
vielen Dank für die Hilfe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife funktioniert nicht zufriedenstellend
18.11.2010 14:33:47
Uppe
Hallo andreas,
versuche es mal so:
Sub Kopieren()
With Worksheets("Bestellungen")
For i = 12 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Range("O" & i).Value = "ja" Then
.Range("B" & i & ":P" & i).Copy
intLastRow = Worksheets("Bestellungen-Archiv").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("Bestellungen-Archiv").Range("B" & intLastRow + 1).Insert
End If
Next i
End With
End Sub

Gruß Uppe
Anzeige

301 Forumthreads zu ähnlichen Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Makro mit Tastenkombination aufrufen?
Micha

Hallo liebe Spezialisten,
wie kann ich ein bestehendes Makro mit einer Tastenkombination aufrufen (Strg.X)
Bei dem Makrorecorder kenne ich die Möglichkeit, aber wie kann ich das bei einem schon bestehenden Code ändern.
Gruß
Micha
15.09.2008 12:56:00
Thread-ID: 1009761
4 Beiträge
Anzeige
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
5
3
7
2
2
6
2
7
6
1
6
1
3
7
2
4
1
2
8
2
3
4
1