Thema Datum  Von Nutzer Rating
Antwort
21.04.2016 13:37:47 Hilfsloser User
NotSolved
Blau Werte aus Datei in andere Datei gezielt übertragen
 25.04.2016 12:41:48 Fennek
NotSolved
03.05.2016 11:31:32 Gast44466
NotSolved

Ansicht des Beitrags:
Von:
Fennek		 Datum:
25.04.2016 12:41:48		 Views:
664		 Rating:
     
Antwort:
  Ja
Thema:
Werte aus Datei in andere Datei gezielt übertragen

Hallo,

 

hier ein Beispiel für 2 Sheets in einer Datei. Wenn du die beiden Referenzen auf die jeweilgen Dateien setzt, sollte es funktionieren.

Sub Hilflos()
Dim Master As Worksheet 'hier auf Workbooks umstellen
Dim Vorlage As Worksheet 'hier auf Workbooks umstellen
Dim rng As Range

Set Master = Sheets(1) 'hier die Dateien referenzieren
Set Vorlage = Sheets(2)
Set rng = Master.Rows(1).Find("Hilfe geleistet am")
If Not rng Is Nothing Then
c = rng.Column
End If
With Vorlage.Columns(4)
Set rng = .Find("Hilfe")
Start = rng.Address
Do
Z = Application.Match(Vorlage.Cells(rng.Row, 1), Master.Columns(1), 0)
    If Not IsError(Z) Then
    Master.Cells(Z, c) = Vorlage.Cells(rng.Row, 3)
    End If
Set rng = .FindNext(rng)
Loop Until rng.Address = Start
End With
End Sub

mfg

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
21.04.2016 13:37:47 Hilfsloser User
NotSolved
Blau Werte aus Datei in andere Datei gezielt übertragen
 25.04.2016 12:41:48 Fennek
NotSolved
03.05.2016 11:31:32 Gast44466
NotSolved