Hallo,
ich hab hier eine kleine Frage zu einem funktionierendem Makro, welches ich aber etwas optimieren will.
Sub Finder_programmierung()
Dim s, z As Integer
Dim t As Integer
Dim Text As String
Dim rngZelle As Range
For t = 1 To 3
Text = Choose(t, "THC", "CO_", "THCTHC")
Set rngZelle = ActiveSheet.Cells.Find(Text, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Zelle = Integral(Text).Address
Else
' Wurde der Wert nicht gefunden, Meldung ausgeben '
MsgBox Text & " not measured"
End If
Next
End Sub
Kurz gesagt, ich suche in einer Schleife nach gemessenen Signalen. Findet er das Signal (Text), geht er in die Funktion und rechnet. Findet er den Text in der Excelmappe nicht, kommt im Moment für jeden Schleifendurchlauf eine Textbox die mir sagt, dass das Signal nicht gemessen wurde.
Damit das Makro später flüssig läuft und nicht nach jedem Schleifendurchlauf unterbrochen wird (Textbox), möchte ich gerne, dass die Textbox erst am Ende kommt und alle nicht gemessenen Signal mit einem mal auflistet.
Hoffe das war halbwegs verständlich ^^
Grüße
Achim
|