Thema Datum  Von Nutzer Rating
Antwort
Rot Macro für jede Datei im Ordner durchführen
 03.04.2014 16:46:27 Chris
NotSolved
03.04.2014 19:10:11 Gast54134
NotSolved
03.04.2014 22:02:23 Gast8273
NotSolved

Ansicht des Beitrags:
Von:
Chris		 Datum:
03.04.2014 16:46:27		 Views:
2004		 Rating:
     
Antwort:
  Ja
Thema:
Macro für jede Datei im Ordner durchführen

Hallo Zusammen,

Ich hab bereits folgendes Macro. Jetzt möchte ich es für jede Datei in einem Ordner durchführen und die Ergebnisse sollen in einer neuen Datei gespeichert werden. Hierbei soll der Name der Datei in die Zelle vor die Ergebnisse geschrieben werden. Ich habe es schon mehrfach probiert, klappt aber nicht.

Sub Lineare_Analyse()
    
Dim wscounter As Integer
Dim ws As Integer
Dim b As Variant
Dim v As Variant
Dim vmax As Variant
    
 
    wscounter = Worksheets.Count
    
    For ws = 2 To wscounter
    
    Set wks = Worksheets(ws)
    
    wks.Activate
    LetzteZeile = wks.Cells(Rows.Count, 8).End(xlUp).Row
    
    b = Application.WorksheetFunction.LinEst(Range("H2:H" & LetzteZeile))
    v = Application.WorksheetFunction.LinEst(Range("J2:J" & LetzteZeile))
    vmax = Application.WorksheetFunction.LinEst(Range("K2:K" & LetzteZeile))
    
    
    
    wks.Range("A" & LetzteZeile + 17).Value = b(1)
    wks.Range("G" & LetzteZeile + 17).Value = v(1)
    wks.Range("M" & LetzteZeile + 17).Value = vmax(1)
    
    wks.Range("B" & LetzteZeile + 17).Value = b(2)
    wks.Range("H" & LetzteZeile + 17).Value = v(2)
    wks.Range("N" & LetzteZeile + 17).Value = vmax(2)
    
    Next
    
    
End Sub

Vielen Dank für die Hilfe

Chris

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
Rot Macro für jede Datei im Ordner durchführen
 03.04.2014 16:46:27 Chris
NotSolved
03.04.2014 19:10:11 Gast54134
NotSolved
03.04.2014 22:02:23 Gast8273
NotSolved