VBA Resize

15/04/2013 - 13:21 von ewald.steinberg | Report spam
Hallo NG,

habe schon wieder ein Problem, genauer gesagt hat mir ein Kollege ein Makro gegeben das mehrere Excel-Mappen zu einer zusammenführen soll.

Das Problem ist, daß die Daten untereinander geschrieben werden, aber nebeneinander benötigt werden. Code:

With Tabelle1 ' ab der 2. einzulesender Mappe
If blnÜberschrift Then
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(lngLZ - 1, 5).Formula = _
"=IF('" & sPfad & "[" & sDatei & "]Tabelle1'!A2="""","""",'" & sPfad & "[" & sDatei & "]Tabelle1'!A2)"
Else ' 1. einzulesende Mappe
blnÜberschrift = True
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(lngLZ, 5).Formula = _
"=IF('" & sPfad & "[" & sDatei & "]Tabelle1'!A1="""","""",'" & sPfad & "[" & sDatei & "]Tabelle1'!A1)"
End If
End With

d.h. der Befehl nach If blnÜberschrift Then
müßte angepasst werden, was ich leider nicht hinbekomme.
Von jeder Excel-Mappe werden 2-5 Spalten eingelesen, also immer ab Zeile 1.

Hoffentlich habe ich mich einigermaßen verstàndlich ausgedrückt.

Danke.

Gruß
Ewald
 

Lesen sie die antworten

#1 Claus Busch
15/04/2013 - 15:22 | Warnen spam
Hallo Ewald,

Am Mon, 15 Apr 2013 04:21:46 -0700 (PDT) schrieb
:

Das Problem ist, daß die Daten untereinander geschrieben werden, aber nebeneinander benötigt werden. Code:

With Tabelle1 ' ab der 2. einzulesender Mappe
If blnÜberschrift Then
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(lngLZ - 1, 5).Formula = _
"=IF('" & sPfad & "[" & sDatei & "]Tabelle1'!A2="""","""",'" & sPfad & "[" & sDatei & "]Tabelle1'!A2)"
Else ' 1. einzulesende Mappe
blnÜberschrift = True
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(lngLZ, 5).Formula = _
"=IF('" & sPfad & "[" & sDatei & "]Tabelle1'!A1="""","""",'" & sPfad & "[" & sDatei & "]Tabelle1'!A1)"
End If
End With



bitte beschreibe mal wie die Daten in den Tabellen aussehen, wo sie
hinsollen und wie sie dort aussehen sollen. Ich arbeite dabei nicht
gerne mit Formeln, da diese immer wieder neu berechnet werden und somit
Resourcen verbrauchen. Irgendwie wird man die Daten auch fest
einschreiben können mit Makro.


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen