Thema Datum  Von Nutzer Rating
Antwort
08.11.2012 10:16:49 Achiim
Solved
Blau Liste als Ergebnis aus Schleife erstellen
 09.11.2012 09:48:11 Gast62453
Solved
09.11.2012 09:51:56 Achiim
NotSolved

Ansicht des Beitrags:
Von:
Gast62453		 Datum:
09.11.2012 09:48:11		 Views:
822		 Rating:
     
Antwort:
 Nein
Thema:
Liste als Ergebnis aus Schleife erstellen

Hallo Achim,

das kann man so machen...

 

Sub Finder_programmierung()
 
   Dim s, z As Integer
   Dim t As Integer
   Dim Text As String
   Dim rngZelle As Range
   Dim Message As String
   
   Message = ""

   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"
          Message = Message & Text & vbcrlf
         'Message = Message & Text & vbacrlf
      End If
    Next
    Msgbox Message
End Sub

habe einmal vbcrlf und als alternative vbacrlf, weil ich es nicht getestet habe.

 

Gruß Detlev

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.11.2012 10:16:49 Achiim
Solved
Blau Liste als Ergebnis aus Schleife erstellen
 09.11.2012 09:48:11 Gast62453
Solved
09.11.2012 09:51:56 Achiim
NotSolved