Thema Datum  Von Nutzer Rating
Antwort
30.11.2015 13:28:20 Sofie
NotSolved
30.11.2015 14:19:04 Gast36311
NotSolved
30.11.2015 15:03:42 Gast29887
NotSolved
Blau Suchfunktion und Kopieren
 30.11.2015 19:35:16 Gast61909
NotSolved
03.12.2015 15:26:46 Sofie
NotSolved
03.12.2015 17:46:57 Gast27361
NotSolved
04.12.2015 12:06:38 Sofie
NotSolved
04.12.2015 13:05:40 Sofie
NotSolved
05.12.2015 11:14:02 Gast20768
NotSolved
05.12.2015 11:18:17 Gast76748
NotSolved

Ansicht des Beitrags:
Von:
Gast61909		 Datum:
30.11.2015 19:35:16		 Views:
777		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion und Kopieren

Ne, das ist nicht ganz richtig. Active Sheet ist das gerade geöffnete was aktiv ist - was du sehen würdest. Wenn du zum Beispiel dein Quelldatei öffnest, ist die dann aktiv. Da du kein Angaben zu den Tabellenblätter gemacht hast, gehe ich mal davon aus, dass alle im ersten liegen. Folgender Code würde dir bspw. die Zeile kopieren und in Zeile B von der Zieldatei schreiben. Du müsstest nur bei pfad noch den Ablagepfad der Datei aus denen kopiert wird eintragen in Anführungszeichen eintragen.

Option Explicit
Sub Aktionspläne_zusammenführen()
' Aktionspläne_zusammenführen Makro
Dim ziel As String
Dim quelle As String
Dim pfad
Dim suche
Dim ergebnis

pfad =  ' da wo quelle liegt
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
ziel = "2016 Aktionsplan Top Kategorien.xlsm"
quelle = "16ABIL.xlsx"
suche = "Tafeln 87g-100g"
'
'Quelledatei öffnen
Workbooks.Open Filename:=pfad & quelle

'Wert suchen und kopieren
Set ergebnis = Workbooks(quelle).Worksheets(1).Cells.Find(suche, LookIn:=xlValues)

If Not ergebnis Is Nothing Then
    Workbooks(quelle).Worksheets(1).Range(ergebnis.Row & ":" & ergebnis.Row).Copy Destination:=Workbooks(ziel).Worksheets(1).Range(2 & ":" & 2)

   
    Application.CutCopyMode = False
    Workbooks(ziel).Activate
    
    
Else
MsgBox "Es wurde nichts gefunden!"
End If

Workbooks(quelle).Close savechanges:=False
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
30.11.2015 13:28:20 Sofie
NotSolved
30.11.2015 14:19:04 Gast36311
NotSolved
30.11.2015 15:03:42 Gast29887
NotSolved
Blau Suchfunktion und Kopieren
 30.11.2015 19:35:16 Gast61909
NotSolved
03.12.2015 15:26:46 Sofie
NotSolved
03.12.2015 17:46:57 Gast27361
NotSolved
04.12.2015 12:06:38 Sofie
NotSolved
04.12.2015 13:05:40 Sofie
NotSolved
05.12.2015 11:14:02 Gast20768
NotSolved
05.12.2015 11:18:17 Gast76748
NotSolved