Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1772to1776
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
Inhaltsverzeichnis

Debug.Print mit If verknüpfen

Debug.Print mit If verknüpfen
05.08.2020 20:36:12
Frank
Guten Abend zusammen,
ist es möglich den Debug Print mit einer If Anweisung zu verknüpfen?
So in der Art
=Debug.Print " If i > 1 = " & If i > 1 Then "True" Else "False" End If =
Ich freue mich auf Eure Antworten.
Schönen Abend Euch allen.
Vielen Dank und viele Grüße,
Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Debug.Print mit If verknüpfen
05.08.2020 20:50:40
onur
Häääh?
AW: Debug.Print mit If verknüpfen
05.08.2020 21:01:24
Frank
Guten Abend Onur. Es soll im Direktbereich der Quelltext wiedergegeben werden, indem ich mit Hilfe von Debug.Print alles ausgebe was im eigentlichen Quelltext passiert.
Das funktioniert:
Debug.Print "For i = " & i & " To " & n_Zeile - 1
Bei einer If Anweisung weiß ich nicht so recht ob man es auch umsetzen kann.
AW: Debug.Print mit If verknüpfen
05.08.2020 21:08:10
onur
Der Code ergibt für mich keinen Sinn.
Wie genau sieht der Code denn aus und läuft er denn auch einwandfrei?
AW: Debug.Print mit If verknüpfen
05.08.2020 21:26:59
Frank
Ja alles funktioniert ohne Probleme.
For i = 1 To n_Zeile - 1
Debug.Print "For i = " & i & " To " & n_Zeile - 1
Do Until Datenarray(i, 3) < 0 Or i = n_Zeile
Debug.Print " Do Until Schleife i = " & i & " " & Round(Datenarray(i, 3), 3) & " < 0 Or i = " & n_Zeile - 1
alpha = Datenarray(i, 4)
Debug.Print " Winkel = " & Round(alpha, 2) & "; Kraft = " & Round(Datenarray(i, 1), 5) & " ; Weg = " & Round(Datenarray(i, 2), 5)
'Debug.Print " Starte If Schleife"
'Debug.Print " If i > 1 = " & If i > 1 Then "True" Else "False" End If
If i > 1 Then
...
Else
...
End If
Ist es jetzt besser verständlich?
Anzeige
AW: Debug.Print mit If verknüpfen
05.08.2020 21:28:48
onur
DAS solltest du GENAU posten.
If i > 1 Then
Else
End If 

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige