Office: Range-Variable auslesen und einfügen

Dredg042 · 17. Dezember 2013

Hi zusammen,

dieses Forum ist voller schlauer Köpfe, deswegen wende ich mich wieder an euch.
Ich habe ein einfüge-makro geschrieben, das aus einer andere Excel-Datei Daten in eine Range-Variable speichert. dDiese daten werden in die ursprüngliche arbeitsmappe in einem Tabellenblatt eingefügt.
Nun wird per suche->copy-> paste; suche->copy-> paste , bis zum ende, d.h. die zwischenablage is überladen.
Da ich die daten aber schon in der Range-Variablen drinne hab, is meine frage, ob ich irgendwie nach der überschrift (strS) suchen kann
rngC.formula(1,1).paste funktioniert nicht
bzw. ob es für mein vorhaben eine geschicktere methode gibt.

Code:

Sub Einfüge()

'Deklaration
Dim rngC As Range, temp As Range, zwi As Range

Dim i As Integer, j As Integer, n As Integer, f As Integer
Dim spalte As Integer
Dim merke As Integer
Dim zeile As Integer
Dim bereich As Integer
Dim bereich1 As Integer
Dim source As String
Dim filetoOpen As String
Dim WB As String
Dim rück As Integer
Dim strname As String

bereich = 18
bereich1 = bereich - 1

strname = ActiveSheet.Name
Range("E2").Select
spalte = ActiveCell.Column
source = "test123.xlsm" 'Name Masterdatei
'--------------------------------

'--------------------------------

Dim strS(0 To 16) As String
strS(0) = "Beispiel1"
strS(1) = "Beispiel2"
strS(2) = "Beispiel3"
strS(3) = "Beispiel4"
strS(4) = "Beispiel5"
strS(5) = "Beispiel6"
strS(6) = "Beispiel7"
strS(8) = "Beispiel9"
strS(9) = "Beispiel10"
strS(10) = "Beispiel11"
strS(11) = "Beispiel12"
strS(12) = "Beispiel13"
strS(13) = "Beispiel14"
strS(14) = "Beispiel15"

strS(15) = "Beispiel16"
strS(16) = "Beispiel17"

'Auswählen und Öffnen der zu verarbeitenden Datei

zeile = 17

'---------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------
hier:

filetoOpen = Application _
.GetOpenFilename("Excel Files (*.xlsx;*.xls), *.xlsx;*.xls")
If filetoOpen = "Falsch" Then
rück = MsgBox("Möchten Sie ihre Wahl wiederholen", vbRetryCancel, "Abfrage")
If rück = 4 Then GoTo hier

Exit Sub
End If
Workbooks.Open Filename:=filetoOpen, UpdateLinks:=0
Sheets("Group_1").Select

On Error Resume Next

'Suche in Tel + Einfügen in zwischenablage
WB = ActiveWorkbook.Name

'------Suche in Test12.xlsx--------------------
For i = 0 To UBound(strS)
Set zwi = Rows(1).Find(What:=strS(i)).EntireColumn
If Not zwi Is Nothing Then
If Not rngC Is Nothing Then
Set rngC = Application.Union(rngC, zwi)
Else
Set rngC = zwi
End If
End If

Next i
'---------alles was jetzt kommt würde ich gerne vermeiden wollen--------------------------------
'Kopier und Einfüge Prozedur
rngC.Copy
Windows(source).Activate 'Name der Masterdatei
Sheets.Add After:=Sheets(Sheets.Count) 'Tabellenblatt hinzufügen
ActiveSheet.Name = "Zwiabla" 'Tabellenblatt umbenennen
ActiveSheet.Paste
Set zwi = Nothing
Set rngC = Nothing
'Format(Zeilen, usw.) anpassen

Cells(zeile - 1, 12).Select

For i = 0 To 16

Set temp = Cells.Find(What:=strS(i), After:=ActiveCell, LookIn:=xlFormulas).Activate
'i=7 damit lücke für bestehen bleibt
If ActiveCell strS(i) Or i = 7 Then GoTo sprungziel
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(strname).Activate
Cells(zeile, spalte + i).Activate
ActiveSheet.Paste

Sheets("Zwiabla").Select
Cells(zeile - 1, 5).Select

sprungziel:
Next i
ActiveWindow.SelectedSheets.Delete
Workbooks(WB).Close
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Dredg042 · 18. Dezember 2013

Hier noch die Dateien. Eigentlich habe ich pro spalte 10.000 Daten. Zwecks der übersichtlichkeit und der hochladbarkeit hab ich die Daten verkleinert

Office: Range-Variable auslesen und einfügen

Range-Variable auslesen und einfügen

Range-Variable auslesen und einfügen

Range-Variable auslesen und einfügen - Similar Threads - Range Variable auslesen

Range-Bereich mit Variablen definieren

excel vba range variable

VLookup/Sverweis mit Variablen/Range

Ranges mit Variablen ansprechen

Range in Variable schreiben und Variable zurück in Zellen kopieren

Variable Range VBA

Variables Range Select ?