Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Marcel1212 am November 28, 2012, 08:44:04 Vormittag

Titel: Import von Daten auf excel
Beitrag von: Marcel1212 am November 28, 2012, 08:44:04 Vormittag
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

Titel: Antw: Import von Daten auf excel
Beitrag von: Officer am November 28, 2012, 10:43:28 Vormittag
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
Titel: Antw: Import von Daten auf excel
Beitrag von: Marcel1212 am November 28, 2012, 11:11:41 Vormittag
 ;D Super funktioniert einwandfrei. Dankke!! ;D

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

VG

Marcel
Titel: Antw: Import von Daten auf excel
Beitrag von: Officer am November 28, 2012, 11:32:13 Vormittag
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
Titel: Antw: Import von Daten auf excel
Beitrag von: Marcel1212 am November 28, 2012, 11:48:33 Vormittag
Ok danke, aber ich glaub des is mir dann doch ein bisschen zu aufwendig  :D

Danke nochmal.

VG
Marcel
Titel: Antw: Import von Daten auf excel
Beitrag von: Marcel1212 am November 29, 2012, 08:41:04 Vormittag
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