Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2015 13:28:20 |
Sofie |
|
|
|
30.11.2015 14:19:04 |
Gast36311 |
|
|
|
30.11.2015 15:03:42 |
Gast29887 |
|
|
Suchfunktion und Kopieren |
30.11.2015 19:35:16 |
Gast61909 |
|
|
|
03.12.2015 15:26:46 |
Sofie |
|
|
|
03.12.2015 17:46:57 |
Gast27361 |
|
|
|
04.12.2015 12:06:38 |
Sofie |
|
|
|
04.12.2015 13:05:40 |
Sofie |
|
|
|
05.12.2015 11:14:02 |
Gast20768 |
|
|
|
05.12.2015 11:18:17 |
Gast76748 |
|
|
Von:
Gast61909 |
Datum:
30.11.2015 19:35:16 |
Views:
780 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
30.11.2015 14:19:04 |
Gast36311 |
|
|
|
30.11.2015 15:03:42 |
Gast29887 |
|
|
Suchfunktion und Kopieren |
30.11.2015 19:35:16 |
Gast61909 |
|
|
|
03.12.2015 15:26:46 |
Sofie |
|
|
|
03.12.2015 17:46:57 |
Gast27361 |
|
|
|
04.12.2015 12:06:38 |
Sofie |
|
|
|
04.12.2015 13:05:40 |
Sofie |
|
|
|
05.12.2015 11:14:02 |
Gast20768 |
|
|
|
05.12.2015 11:18:17 |
Gast76748 |
|
|