Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Error in For Schleife

Error in For Schleife
03.09.2013 12:26:02
Alexander
Hallo zusammen!
Ich hätte mir mein Problem schon ergoogelt, aber irgendwie passt da keine Lösung. Und zwar habe ich eine For-Schleife in der ein Fehler auftreten kann. 
For i = 10 To Workbooks("Tests.xlsm").Worksheets(1).Cells(Rows.Count, 8).End(xlUp).Row
c = Workbooks("Tests.xlsm").Worksheets(1).Cells(i, 8).Value
If c = "" Then GoTo Ende
On Error GoTo Sprung
d = Worksheets(1).Range("B7:B" & f).Find(c).Address
e = Val(Mid(d, InStr(2, d, "$") + 1))
g = Worksheets(1).Range("C" & e)
Workbooks("Tests.xlsm").Worksheets(1).Cells(i, 9).Value = g
GoTo Ende
Sprung:
Workbooks("Tests.xlsm").Worksheets(1).Cells(i, 9).Value = 0
Ende:
Next
Den Fehler überspringt der Code ja nur einmal, nur bin ich aus den ganzen Lösungsvorschlägen nicht schlau geworden. Die Variable c kann nicht immer gefunden werden, da keine Daten dazu hinterlegt sind (Daten 0 zu setzen geht nicht).
Wie kann ich diesen Fehler bei jedem Durchgang der Schleife übergehen? Ich habe etwas mit Err.Clear gelesen, aber da weiß ich nicht genau wo der Befehl hingehört (hab schon probiert).
Danke schon mal für eure Mühe!
Grüße
Alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Error in For Schleife
03.09.2013 12:45:24
Rudi
Hallo,
wozu On Error?
Vorschlag: 
Sub xxx()
Dim i As Long, c As String, d As String, e As Long, g, r As Range, f as long
For i = 10 To Workbooks("Tests.xlsm").Worksheets(1).Cells(Rows.Count, 8).End(xlUp).Row
c = Workbooks("Tests.xlsm").Worksheets(1).Cells(i, 8).Value
If c  "" Then
Set r = Worksheets(1).Range("B7:B" & f).Find(c)
If Not r Is Nothing Then
e = r.Row
g = Worksheets(1).Cells(e, 3)
Workbooks("Tests.xlsm").Worksheets(1).Cells(i, 9).Value = g
Else
Workbooks("Tests.xlsm").Worksheets(1).Cells(i, 9).Value = 0
End If
End If
Next
End Sub

Gruß
Rudi

Anzeige
AW: Error in For Schleife
03.09.2013 12:53:32
ChrisL
Hi Alex
Brauchte etwas länger wie Rudi, aber hier noch ein anderer Lösungsansatz:
Sub t()
Dim i As Long
With Workbooks("Test.xlsm").Worksheets(1)
For i = 10 To .Cells(Rows.Count, 8).End(xlUp).Row
If WorksheetFunction.CountIf(.Columns(2), .Cells(i, 8)) > 0 Then
.Cells(i, 9) = WorksheetFunction.VLookup(.Cells(i, 8), _
.Range(.Columns(2), .Columns(3)), 2, 0)
Else
.Cells(i, 9) = 0
End If
Next i
End With
End Sub

cu
Chris

300 Forumthreads zu ähnlichen Themen

Aus Schleife wenn Zelle einen Rahmen hat???
TOM

Guten Morgen zusammen
Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
...
27.08.2008 11:12:00
Thread-ID: 1005013
3 Beiträge
Anzeige
Schleife um ein Makro bauen
Matthias

Hallo zusammen,
ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
Zur Formel: RC[1] = Zelle B2;
Ich würde d...
01.10.2008 11:26:00
Thread-ID: 1013562
7 Beiträge
Variable in Forschleife
Jens

Hallo Ihr,
ich habe folgendes Problem:
Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
Beispiel für 3 Variablen:
Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Inte...
08.10.2008 13:49:00
Thread-ID: 1015052
5 Beiträge
Anzeige
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Schleife in Formel
Jochen

Hallo,
kann ich mit einer Formel eine Schleife laufen lassen?
Meine Tabelle sieht etwa so aus:
Pos. Stückzahl
1 10
2 15
3
4 2
5 3
6
7
8 10
9 11
10
11
12 12
Meinergeb...
11.11.2008 14:25:00
Thread-ID: 1023549
9 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Gesamtwert in Zell über Multiplikationsschleife...
Jessi

Hallo zusammen,
habe wieder mal eine Frage:
Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
10.12.2008 14:51:00
Thread-ID: 1031705
4 Beiträge
Mittelwerte bilden in Schleifen
WMüller

Hallo zusammen,
ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
14.01.2009 15:01:21
Thread-ID: 1039672
6 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
2
1
6
4
2
7
8
4
3
5
11
8
2
8
2
4
3
8
11
4
2
4
2
7
2