Import von Daten auf excel

[Marcel1212]

Hallo ZUsammne,

hatte gestern schon eine Frage und mir konnte hier super weitergeholfen werden.
Hoffentlich klappt dass heute auf   

Hab nun endelich ein Makro zum Importieren von Excel dadateien in eine andere.
Nun meine Frage: Da es unübersichtlich wird, wenn das kanze Blatt importiert wird, will ich nur noch einzelne Zellen importieren. Wie kann ich des mamchen???

Hier mein bereits bestehendes Makro:

Sub Import_mit_Dialog()

Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")

If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If

'MsgBox "Ausgewählte Datei: " & Datei, , ""

Workbooks.Open Filename:=Datei


Set Ziel = ThisWorkbook.Worksheets(3)

Blatt = Ziel.Range("N2").Value


Set Quelle = ActiveWorkbook.Worksheets(Blatt) '

Quelle.UsedRange.Copy Ziel.Cells(5, 1)

ActiveWorkbook.Close

Set Quelle = Nothing
Set Ziel = Nothing

Exit Sub

Fehler:
Set Quelle = Nothing
Set Ziel = Nothing

MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
 , vbCritical, "Fehler"
 


End Sub

Danke für eure Hilfe!!

Viele Grüße 
Marcel

[Officer]

Hallo Marcel,

verwendet anstatt UsedRange die genaue Angabe der Zellen bzw. Zellenbereiche.
Ersetze dazu einfach den Befehl

Code: Visual Basic

1. Quelle.UsedRange.Copy Ziel.Cells(5, 1)

durch

Code: Visual Basic

1. Quelle.Range("A5:A10").Copy ziel.Range("A5:A10")
2. Quelle.Range("C10").Copy ziel.Range("C10")

Damit kannst Du explizit bestimmen, welche Zellen aus der Quelldatei in die Zieldatei kopiert werden soln.

Gruß

Officer

[Marcel1212]

  Super funktioniert einwandfrei. Dankke!!

Ist es auch möglich, wirklich nur die Zahl zu importieren ohne die Zellenformatierung ( Rahmen, Farbe...)

VG

Marcel

[Officer]

Hallo,

prizipiell schon. Dazu müsste aber der Kopiervorgang etwas anders aufgebaut werden:

Code: Visual Basic

1. quelle.Select
2. Range("D9").Copy
3.  
4. ziel.Select
5. Range("F10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
6.   :=False, Transpose:=False

Damit dies funktioniert, muss bei jedem einzelnen Kopiervorgang zuerst die entsprechende Tabelle bzw. Arbeitsmappe ausgewählt werden, um die Daten kopieren bzw. einfügen zu können.

Mit PasteSpecial Paste:=xlPasteValues wird entsprechend nur der Wert ohne Formatierung eingefügt.

Gruß

Officer

[Marcel1212]

Ok danke, aber ich glaub des is mir dann doch ein bisschen zu aufwendig 

Danke nochmal.

VG
Marcel

[Marcel1212]

Guten Morgen,
muss nun doch die Methode wählen 
Bei mir springt er aber auf Quelle=Nothing
Muss ich bei quelle. Select noch was auswählen

VG
 Marcel