Thema Datum  Von Nutzer Rating
Antwort
27.11.2019 08:50:29 Tom Kathmann
NotSolved
27.11.2019 10:30:03 Flotter Feger
NotSolved
27.11.2019 10:58:21 Gast95613
NotSolved
27.11.2019 10:58:30 Gast58547
NotSolved
27.11.2019 12:13:21 Flotter Feger
NotSolved
28.11.2019 08:44:32 Tom
NotSolved
Rot VBA - Felder kopieren
28.11.2019 12:50:26 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger
Datum:
28.11.2019 12:50:26
Views:
676
Rating: Antwort:
  Ja
Thema:
VBA - Felder kopieren

Hallo Tom,

mal ein Versuch ... du musst anpassen, was alles kopiert werden soll.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Auswahl()
Dim fileToOpen As Variant
Dim sh As Variant
Dim WB As Workbook
Dim TH As Workbook
 
Set TH = ThisWorkbook
 
fileToOpen = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")
If fileToOpen <> False Then
    Set WB = Workbooks.Open(fileToOpen, ReadOnly:=True)
     
    sh = InputBox("...aus welchem Blatt soll kopiert werden ?", "Sag schon...", "Tabelle1") '"Tabelle1" kannst du anpassen
    If sh <> False Then
        With WB.Worksheets(sh)
            ' Hier wir kopiert
            .Range("B1").Copy Destination:=TH.ActiveSheet.Range("H1") 'musst du natürlich anpassen
        End With
    End If
     
    WB.Close SaveChanges:=False
End If
End Sub

Sabina


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
27.11.2019 08:50:29 Tom Kathmann
NotSolved
27.11.2019 10:30:03 Flotter Feger
NotSolved
27.11.2019 10:58:21 Gast95613
NotSolved
27.11.2019 10:58:30 Gast58547
NotSolved
27.11.2019 12:13:21 Flotter Feger
NotSolved
28.11.2019 08:44:32 Tom
NotSolved
Rot VBA - Felder kopieren
28.11.2019 12:50:26 Flotter Feger
NotSolved