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:
861		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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