Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.11.2015 11:36:52 |
Gast69722 |
|
|
|
25.11.2015 12:13:25 |
BigBen |
|
|
|
25.11.2015 13:35:07 |
Gast60456 |
|
|
Import ab bestimmter Zelle starten |
25.11.2015 14:20:02 |
BigBen |
|
|
|
25.11.2015 14:39:15 |
Gast49925 |
|
|
|
26.11.2015 09:14:47 |
Gast72228 |
|
|
Von:
BigBen |
Datum:
25.11.2015 14:20:02 |
Views:
789 |
Rating:
|
Antwort:
|
Thema:
Import ab bestimmter Zelle starten |
Hallo,
sorry, habe mich verleesen.
Verwende bitte folgenden Code:
Sub Schaltfläche2_Klicken()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
'Zielblatt = aktive Datei, aktives Blatt
Set wsZiel = ActiveWorkbook.ActiveSheet
'Quellblatt = Datei, Blatt 1
Set wsQuelle = Workbooks.Open(Filename:="C:\Users\bia5le\Desktop\TEST123.xlsx").Worksheets(1)
'Kopieren
wsQuelle.Intersect(wsQuelle.UsedRange, wsQuelle.UsedRange.Offset(10)).Copy Destination:=wsZiel.Cells
'Quelle schließen
wsQuelle.Parent.Close
Set wsQuelle = Nothing
Set wsZiel = Nothing
End Sub
Erläuterung:
1. Durch Offset(10) wird ein Range-Bereich um 10 Zeilen nach unten verschoben
2. Dank der Kapselung des Offset-Befehls in dem Intersect Befehl wird das überlappende Ende der Zellen um ebenfalls 10 Zeilen verkleinert
3. Der angeasste Bereich wird anschließend dem Copy-Befehl übergeben
VG, BigBen
|
- 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
|
|
25.11.2015 11:36:52 |
Gast69722 |
|
|
|
25.11.2015 12:13:25 |
BigBen |
|
|
|
25.11.2015 13:35:07 |
Gast60456 |
|
|
Import ab bestimmter Zelle starten |
25.11.2015 14:20:02 |
BigBen |
|
|
|
25.11.2015 14:39:15 |
Gast49925 |
|
|
|
26.11.2015 09:14:47 |
Gast72228 |
|
|