Neuling - 2 Fragen : Variablen und Überprüfung
20.01.2007 17:39:35
Bender
habe zwei kurze Fragen und bedanke mich vorab für die Hilfe.
Frage Nr. 1:
Ich benutze folgendes Script um eine CSV Datei zu exportieren, und will nun, dass die erste Schleife "For z = 1 To TB.Cells(Rows.Count, 1).End(xlUp).Row" so oft abläuft, wie die Zahl in einer Zelle (G8) in der Tabelle2 meiner Datei.
Script:
-------------------------------------
Private Sub CommandButton1_Click()
Dim TB As Worksheet, Dateinummer%
Dim z%, s%, exportfile$, TMP$
exportfile = "C:\test.csv"
Dateinummer = FreeFile
Set TB = ActiveSheet
Open exportfile For Output As #Dateinummer
For z = 1 To TB.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(z, 2).Value = Text Then SL = 10 Else SL = 6
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub
-------------------------------------
Frage Nr. 2:
Ich will das ständig geprüft wird, ob die Zahl der Zelle (C5) der Tabelle 1 negativ ist, falls Sie negativ ist, soll ein Alert kommen, das mit OK bestätigt werden soll.
Sub AlertMakro()
If Range("C5").Value MsgBox ("Achtung C5 ist negativ!")
End Sub
Soweit bin ich jetzt, leider wird das ja nicht ständig überprüft sondern, nur wenn ich das Makro ausführe. Wie kann man so eine ständige Überprüfung erreichen?
Danke für eure Mühen
Gruß Hans-Martin
Anzeige