String mit Function auswerten

03/09/2007 - 21:22 von Boas Steiner | Report spam
Hallo zusammen

Könnt Ihr mir bitte helfen? Ich habe nàmlich eine Frage.

Gibt es eine Möglichkeit, einen String - also einen Wert, welcher durch eine
Prozedur in einem Makro erstellt wurde - zu analysieren? Oder anders gefragt:
wieso ist dies nicht möglich:

Sub Makro1()
Dim Temp1 As String
Dim Temp2 As Boolean
Temp2 = False
Temp1 = Worksheets("Tabelle1").Range("A1")
Analysiere
Worksheets("Tabelle1").Range("A2") = Temp2
End Sub

Function Analysiere()
If Temp1 = 5 Then
Temp2 = True
End If
End Function

Wie mache ich es, dass die Function auf die Werte des Makro1 zugreift und
sie veràndert?

Ich benàtige die Angaben für eine Komplexe Auswertung.
Ich bitte Euch um Hilfe.

Vielen Dank im Vorraus
Gruss Boas
 

Lesen sie die antworten

#1 Eberhard Funke
03/09/2007 - 22:35 | Warnen spam
Am Mon, 3 Sep 2007 12:22:01 -0700 schrieb Boas Steiner:

Sub Makro1()
Dim Temp1 As String
Dim Temp2 As Boolean
Temp2 = False
Temp1 = Worksheets("Tabelle1").Range("A1")
Analysiere
Worksheets("Tabelle1").Range("A2") = Temp2
End Sub

Function Analysiere()
If Temp1 = 5 Then
Temp2 = True
End If
End Function

Wie mache ich es, dass die Function auf die Werte des Makro1 zugreift und
sie veràndert?



Hallo Boas,

versuch's mal so:

Sub Makro1()
Dim temp1 As String
Dim temp2 As Boolean
temp2 = False
temp1 = Worksheets("Tabelle2").Range("A1")
Analysiere temp1, temp2
Worksheets("Tabelle2").Range("A2") = temp2
End Sub

Function Analysiere(ByVal t1, ByRef t2) 'Beachte: ByRef
If t1 = 5 Then
t2 = True
End If
End Function


Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen