Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if x + y (50) then

if x + y (50) then
08.07.2004 13:43:44
ray
Hallo, nachfolgend ein Auszug aus meinem code.
Problem ist die Zeile mit ********************
Ich möchte das alle 50 Durchläufe etwas passiert.
Also wenn x = 50, dann wenn x = 100 usw. Die Lösung das alles einzelnd zu definieren ist klar, ich möchte aber dies in eine Formel definieren.
Das kann ich leider noch nicht. Daher wäre ich für einen Ansatz dankbar.
Gruß Ray
Wetter Hamburg wieder Schei......

Sub BK()
x = 2
For i = 1 To 1000
x=x+1
If x = 25 Then GoTo z50 '***********************
If Worksheets("liste am 31.12.2003").Cells(x, 1).Value = "" Then GoTo zEnd else
'hier passiert dies und das...
next i
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if x + y (50) then
Uduuh
Hallo,
so:
If x Mod 50=0 then
Gruß aus'm Pott
Udo
AW: if x + y (50) then
Worti
Hallo ray,
meinst du so was :
For i = 1 to 1000
If  i mod 50 = 0 then ...

Worti
AW: if x + y (50) then
Ingo
Sub BK()
x = 2
For i = 1 To 1000
x=x+1
If x Mod 25 = 0 Then
call diesunddas
End if
If Worksheets("liste am 31.12.2003").Cells(x, 1).Value = "" Then GoTo zEnd else
next i
End Sub 

Private Sub diesunddas
'Dein Code
End Sub

m f G
Ingom Christiansen
AW: if x + y (50) then
Ingo
Sub BK()
x = 2
For i = 1 To 1000
x=x+1
If x Mod 25 = 0 Then
call diesunddas
End if
If Worksheets("liste am 31.12.2003").Cells(x, 1).Value = "" Then GoTo zEnd else
next i
End Sub 

Private Sub diesunddas
'Dein Code
End Sub

m f G
Ingom Christiansen
Anzeige
Bitte noch kurze Hilfe zu hier + F1
08.07.2004 14:14:51
ray
Danke Euch,
so gehts, leider verstehe ich nicht warum. Mein Ziel ist aber neben dem Ergebnis auch lernen. So habe ich F1 bemüht und bekomme:
Mod-Operator (Beispiel)
In diesem Beispiel wird der Operator Mod verwendet, um zwei Zahlen zu dividieren und den ganzzahligen Rest zurückzugeben. Fließkommazahlen werden vor der Operation auf einen ganzzahligen Wert gerundet.
Dim Ergebnis
Ergebnis = 10 Mod 5 ' Liefert 0. Ray: 10 durch 5 ist 2?
Ergebnis = 10 Mod 3 ' Liefert 1. ray: 10 durch 3 ist 3 ? usw.
Ergebnis = 12 Mod 4.3 ' Liefert 0.
Ergebnis = 12.6 Mod 5 ' Liefert 3.
Schnall ich nicht...
Gruß Ray
Anzeige
AW: Bitte noch kurze Hilfe zu hier + F1
Dirk
Hallo.
Wie Du schon festgestellt hast, liefert den ganzzahligen Rest. 10 durch 5 ist 2 REST 0! 10 durch 3 ist 3 REST 1! Sinn erkannt? Wenn Du nun alle 50 Werte eine Aktion durchführen willst heißt das, das die Bedingung ein Vielfaches von 50 ist, also durch 50 ohne Rest teilbar. Deswegen die Bedingung * mod 50=0.
Cheers
AW: Bitte noch kurze Hilfe zu hier + F1
Uduuh
Hallo,
wie schon gesagt: Mod lefert den Rest einer Division. Beide Zahlen und auch das Ergebnis werden auf die nächste ganze Zahl gerundet.
10 Mod 3 --&gt 10:3=3 Rest 1
10 Mod 5 --&gt 10:5= 2 Rest 0
12 Mod 4.3 --&gt 12:4=3 Rest 0
12.6 Mod 5 --&gt 13:5=2 Rest 3
Somit immer wenn x=Vielfaches von 50 ist x Mod 50=0
Gruß aus'm Pott
Udo
Anzeige
Danke auch 2, jetzt verstanden. mT
08.07.2004 14:50:32
ray
da muß man ja über drei Ecken denken...
Aber schon genial einfach. Wer denkt sich nur solche Befehle aus.
Nochmals danke für die Nachhilfe und Eure Geduld.
Ray
no prob. o.T
Dirk

17 Forumthreads zu ähnlichen Themen

If Range(.Offset(2, 0)) = 0 Then
Karsten

Hallo,
ich möchte den Inhalt 2 Zellen unter der Aktiven überprüfen, Klappt aber nicht.
Liege ich mit diesem Code richtig?
If Range(.Offset(2, 0)) = 0 Then
Makro1
End if
Danke und
Gruß
Karsten
05.10.2010 22:44:13
Thread-ID: 1180857
6 Beiträge
Anzeige
If Range("BI29").FormulaR1C1 > 0 Then
Harald


Hallo miteinander,
komme leider nicht weiter.
In BI29 wird laut u. st. Formel 1 oder 0 angezeigt.
=WENN(BK29+BM29=2;1;0)
Ein VBA-Code soll nun die Prüfung vornehmen. So, wie ich es probiere wird auch bei 0 "Weiche_1" durchlaufen.
If Range("BI29").FormulaR1C1 > 0 Then...
30.03.2014 17:30:46
Thread-ID: 1355469
2 Beiträge
VBA IF(ISERROR) .Formula
Robert

Hallo Zusammen,
ich habe auf folgende Weise meinen SVerweis in ein Tabellenblatt eingefügt Sub vba_sverweis1() [AA2:AA426] = WorksheetFunction.VLookup([A2:A426], Sheets("ZP1").[A2:y123], 2, False) End Sub
anschließend wollte ich auf gleiche Weise die IF(ISERROR Funktion benutzen. Sub...
19.02.2015 12:01:45
Thread-ID: 1410393
6 Beiträge
Anzeige
Spalte Pivottabelle per VBA markieren, Error 1004
Michael

Hallo zusammen,
ich habe ein Excelsheet mit einer Pivottabelle. Gerne würde ich per VBA die erste Spalte auswä _ hlen. Dazu habe ich diesen Ablauf mit dem Macro-Recorder aufgezeichnet. Dabei entsteht folgender Code: ActiveSheet.PivotTables("PivotTable1").PivotSelect _ "'[Importdatei].[Vers...
16.12.2016 17:27:25
Thread-ID: 1530566
2 Beiträge
If newDate <= 30 Then
Erik

Hallo zusammen,
ich habe diesen Code: If newDate <= 30 Then~f~
benötige aber 2 Funnktionen wenn kleiner und gleich 30 und größer als 0
~f~If newDate <= 30 & >0 Then
funktioniert nicht
:-)
Wie muß es korrekt heißen ?
Danke
und Gruß
Erik
29.11.2017 13:45:45
Thread-ID: 1594403
3 Beiträge
SVERWEIS / VLookUp unter VBA mit IFISERROR
Luggas

Hallo,
ich habe das Problem, dass ich gerne einen Button einrichten möchte, sobald man diesen anklickt, soll meine SVERWEIS / VLookUp Funktion in eine bestimmte Zelle geschrieben werden.
Mein SVERWEIS sieht wie folgt aus (am Beispiel der Zelle C7):
=WENN(ISTFEHLER(SVERWEIS(C7;[test....
10.08.2018 14:34:50
Thread-ID: 1638729
5 Beiträge
VBA: if date endet in runtime error 13 mismatch
Tom

Hallo Experten
Werde nicht schlau, vielleicht einer der es direkt sieht. Ich nutze einen Datumsabgleich in einem Makro, um darüber eine Trial für das Excel zu machen. Also, ich gebe ein Datum im Makro vor und prüfe es im Vergleich zum heutigen Datum. An sich funktioniert es, wird das Excel...
17.06.2019 12:30:58
Thread-ID: 1698111
3 Beiträge
If InStr(Target.Address, ":") > 0 Then Exit Sub
Franz W.

Hallo Fachleute,hab vor kurzem in einem Code diese Zeile bekommen:If InStr(Target.Address, ":") > 0 Then Exit Subbevor es dann mit der eigentlichen Schleife losgeht:If Target.Column = 10 Then
If UCase(Target.Value) = "x" Then
...
...
...Wofür steht diese Zeile? Was fängt die ab? Ich...
02.04.2003 22:22:02
Thread-ID: 239602
6 Beiträge

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
5
2
1
5
13
1
2
4
2
5
4
2
6
4
4
8
3