Thema Datum  Von Nutzer Rating
Antwort
18.09.2017 10:30:56 Clemens Klasen
NotSolved
Blau Daten automatisch auslesen und auswerten
 18.09.2017 11:07:27 Gast10776
NotSolved
18.09.2017 20:59:55 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast10776		 Datum:
18.09.2017 11:07:27		 Views:
575		 Rating:
     
Antwort:
  Ja
Thema:
Daten automatisch auslesen und auswerten		 
Einen kleinen Teil habe ich schon mal versucht zu schreiben:


sub SuchenUndFinden()

'Variablen
Dim finden As Range 'Durchsuchen Spalte 1 nach Suchbegriff
Dim treffer As String 'Wo wurde der Begriff gefunden? Angabe der Zelle
Dim Programme()  'Array: Speichert die gewünschten Einträge
Dim size As Integer 'passt die Größe des Array an

'Programm
Set finden = Columns(1).Find(what:="Line*")

If Not finden Is Nothing Then

treffer = finden.Address 'Speichert die Erste Adresse
MsgBox treffer

    Do
    ReDim Preserve Programme(1, size)
    MsgBox finden.Value
        If finden.Value = "" Then
            'mach nichts
        Else
            Programme(0, size) = finden.Offset(4, 8).Value 'placed components
	    Programme(0, size) = finden.Offset(4, 16).Value 'Operation Time
	    Programme(0, size) = finden.Offset(4, 23).Value 'Out of Component Stop Time

	
            
        size = siz + 1
        
        End If
    
    Set finden = Columns(1).FindNext(finden)
    
    Loop While Not finden Is Nothing And treffer <> finden.Address
    
End If

            

End Sub

 

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
18.09.2017 10:30:56 Clemens Klasen
NotSolved
Blau Daten automatisch auslesen und auswerten
 18.09.2017 11:07:27 Gast10776
NotSolved
18.09.2017 20:59:55 Gast70117
NotSolved