Excel VBA Kopierern durch .Workbooks . .. oder .Windows .. OOP Methode

DocAElstein · May 24, 2014

'
'‚. Hello Leute. … ---o00o---`(_)`---o00o---
'‚.
'‚. Ich bin eine Neuling zu Excel VBA und versuche die Theorie etwas besser zu verstehe.
'‚.
'‚. Ich wollte an einfach Direkt Methode um die Werte aus einer Cell in eine
'‚ Excel Mappe (Mappe2) zu kopieren in eine andere Excel Mappe (Mappe 1).
'‚ Ich wollte die Code selber schreiben durch eine verstand von VBA,
'‚ statt einfach beim benutzen Makro aufzeichnen
'‚ .
'‚. Das ist (soll) ja etwas einfach und ich hab es geschafft.
'‚ Allerdings ich verstehe nicht warum manche Methode die ich probiere nicht funktioniere.
'‚ Es liegt wahrscheinlisch in die Objekt/Klasse/Orientiren Konzept das ich noch nicht ganz verstehe.
'‚ . (Oder ist es so dass man kann nur eine Value geben oder nehmen von eine Mappe
'‚ das nicht aktivieret ist, mit die Windows .Aktive cell Methode? -
'‚ Man kann also nicht angreifen an cells wenn eine Mappe nicht Aktivieret ist?)
'.
'. Eventuelle kann eine Profi mir Hilfen:-
'.
''. Die folgenden 4 Codes sind eine versuche an an einfach direkt Methode.
''. Allerdings nur die vierte scheint bei mir zu funktionieren!
''.
''‚…………… ……….---o00o---`(_)`---o00o---
''.------ 1'.
Sub WorkbooksCellsMethodDirekt()
Excel.Application.Workbooks("Mappe1.xlsm").Application.Cells(1, 1).Range("a1").Value _
= Excel.Application.Workbooks("Mappe2.xlsm").Application.Cells(1, 2).Range("a1").Value
End Sub

'.
'. -------------- 2
'.
Sub WorkbooksActiveCellMethodDirekt()
Excel.Application.Workbooks("Mappe1.xlsm").Application.ActiveCell.Range("a1").Value _
= Excel.Application.Workbooks("Mappe2.xlsm").Application.ActiveCell.Range("a1").Value
End Sub

'.
'. ------------------------ 3
'.
Sub WindowsCellsMethodDirekt()
Excel.Application.Windows("Mappe1.xlsm").Application.Cells(1, 1).Range("a1").Value _
= Excel.Application.Windows("Mappe2.xlsm").Application.Cells(1, 2).Range("a1").Value
End Sub

'.
'. --------------------------------------- 4
'.
Sub WindowsActiveCellMethodDirekt()
Excel.Application.Windows("Mappe1.xlsm").Activate
Excel.Application.Windows("Mappe1.xlsm").ActiveCell.Range("a1").Value _
= Excel.Application.Windows("Mappe2.xlsm").ActiveCell.Range("a1").Value
End Sub
'.
'. ----------------------------------------
'.
'. Es sieht also als ob nur die Windows "Objekt" hat eine extra Activecell
'. statt nur Application.Activecell zu verfugen. Irgendwie macht das die unterscheid!!!.
'.
' (Bzw. Workbooks hat .Application.Cells und .Application.ActiveCell.
'. Windows hat auch dieses .Application.Cells und .Application.ActiveCell,
'. allerdings Windows hat an extra .ActiveCell das Workbooks nicht hat!?!?)
'.
'. Kann jemand erkläre das mir!!?!
'.
'Danke, Alan Elston.
'. Hof,Bayern den 22.05.2014
'. Email DocAElstein@t-online.de
'.............
'.
'. P.s. Eine mehr komplizieret Methode mit eine zwischen Lager funktionieret bei
'. jede 4 Methode. Bzw. Die folgenden 4 Codes funktionieren alles Einbahn frei!!
'.
'.----------- ---o00o---`(_)`---o00o---

Sub WorkbooksCellsMethodMitZwischenLager()
Dim ZwischenLager As Double

Excel.Application.Workbooks("Mappe2.xlsm").Activate

Let ZwischenLager _
= Excel.Application.Workbooks("Mappe2.xlsm").Application.Cells(1, 2).Range("a1").Value

Excel.Application.Workbooks("Mappe1.xlsm").Activate

Excel.Application.Workbooks("Mappe1.xlsm").Application.Cells(1, 1).Range("a1").Value _
= ZwischenLager
End Sub
'.
'. -------------------------------------------
'.

Sub WorkbooksActiveCellMethodMitZwischenLager()
Dim ZwischenLager As Double

Excel.Application.Workbooks("Mappe2.xlsm").Activate

Let ZwischenLager _
= Excel.Application.Workbooks("Mappe2.xlsm").Application.ActiveCell.Range("a1").Value

Excel.Application.Workbooks("Mappe1.xlsm").Activate

Excel.Application.Workbooks("Mappe1.xlsm").Application.ActiveCell.Range("a1").Value _
= ZwischenLager
End Sub
'.
'. ----------------------------------------
'.
Sub WindowsCellsMethodMitZwischenLager()
Dim ZwischenLager As Double

Excel.Application.Windows("Mappe2.xlsm").Activate

Let ZwischenLager _
= Excel.Application.Windows("Mappe2.xlsm").Application.Cells(1, 2).Range("a1").Value

Excel.Application.Windows("Mappe1.xlsm").Activate

Excel.Application.Windows("Mappe1.xlsm").Application.Cells(1, 1).Range("a1").Value _
= ZwischenLager
End Sub
'.
'. -------------------------------------------
'.
Sub WindowsActiveCellMethodMitZwischenLager()
Dim ZwischenLager As Double

Excel.Application.Windows("Mappe2.xlsm").Activate

Let ZwischenLager _
= Excel.Application.Windows("Mappe2.xlsm").Application.ActiveCell.Range("a1").Value

Excel.Application.Windows("Mappe1.xlsm").Activate

Excel.Application.Windows("Mappe1.xlsm").Application.ActiveCell.Range("a1").Value _
= ZwischenLager
End Sub
'. -------------------------------------------------
'

Greg Truby · May 31, 2014

Sub WindowObjectDemonstration() Dim strMsg As String, _ wbNew As Excel.Workbook, _ i% With Application.ThisWorkbook Do Until .Windows.Count = 1 .Windows(.Windows.Count).Close Loop .Windows(1).Visible = False Let strMsg = "This workbook has " & .Windows.Count & " even though it is not visible." MsgBox strMsg, vbInformation With .Windows(1) .Visible = True ' .WindowState = xlMinimized End With End With Set wbNew = Workbooks.Add(XlWBATemplate.xlWBATWorksheet) With wbNew With .Worksheets .Add After:=.Item(.Count) .Add After:=.Item(.Count) End With .NewWindow .NewWindow .NewWindow '// this code works sometimes and other times '// it does not. Unsure why the inconsistency. .Windows.Arrange xlArrangeStyleTiled Let strMsg = "The new workbook has " & .Windows.Count & " and all are visible." MsgBox strMsg, vbInformation For i = 1 To 3 With .Windows(.Name & ":" & i) .Activate .Parent.Worksheets(i).Activate End With With ActiveSheet With .Range(.Cells(1, 1), .Cells(i * 3, i * 3)) With .Interior .ThemeColor = xlThemeColorAccent1 + (i - 1) .Pattern = xlSolid .PatternColorIndex = xlAutomatic .TintAndShade = 0.8 .PatternTintAndShade = 0 End With .Select End With With .Cells(i, i) .Interior.TintAndShade = 0.4 .Activate End With End With Next i With .Windows(.Name & ":" & 4) .Activate .Parent.Worksheets(1).Activate End With With ActiveSheet With .Range("D4:G8") With .Interior .ThemeColor = xlThemeColorAccent4 .Pattern = xlSolid .PatternColorIndex = xlAutomatic .TintAndShade = 0.8 .PatternTintAndShade = 0 End With .Select End With With .Cells(5, 5) .Interior.TintAndShade = 0.4 .Activate End With End With Let strMsg = "" For i = 1 To .Windows.Count With .Windows(i) Let strMsg = strMsg & "Window #:" & i & vbCr _ & "Window Caption: " & .Caption & vbCr _ & "Active Cell: " & .ActiveCell.Address(0, 0) & vbCr _ & "Selected Range: " & .RangeSelection.Address(0, 0) End With If i <> .Windows.Count Then Let strMsg = strMsg & vbCr & String(10, "—") & vbCr End If Next i .Windows(.Name & ":1").Activate End With MsgBox strMsg, vbInformation If vbYes = MsgBox("Close new workbook", vbQuestion + vbYesNo) Then wbNew.Close False End If End Sub

Greg Truby · May 31, 2014

Note that if all I wanted to do was to change the colors of the various cells, I do not need to activate any sheets, I can access all of these cells through the object model. I do not need to know the active cell or the active sheet or even the active workbook.

Beachten Sie, dass alles, was ich tun wollte, war, um die Farben der verschiedenen Zellen zu ändern, brauche ich nicht, um alle Blätter zu aktivieren, kann ich alle diese Zellen über das Objektmodell zugreifen. Brauche ich nicht, um die aktive Zelle oder das aktive Blatt oder auch die aktive Arbeitsmappe kennen.

 Sub NotUsingWindowObjectDemonstration() Dim strMsg As String, _ wbNew As Excel.Workbook, _ i% Set wbNew = Workbooks.Add(XlWBATemplate.xlWBATWorksheet) With wbNew With .Worksheets .Add After:=.Item(.Count) .Add After:=.Item(.Count) End With For i = 1 To 3 With .Worksheets(i) With .Range(.Cells(1, 1), .Cells(i * 3, i * 3)) With .Interior .ThemeColor = xlThemeColorAccent1 + (i - 1) .Pattern = xlSolid .PatternColorIndex = xlAutomatic .TintAndShade = 0.8 .PatternTintAndShade = 0 End With End With With .Cells(i, i) .Interior.TintAndShade = 0.4 End With End With Next i With .Worksheets(1) With .Range("D4:G8") With .Interior .ThemeColor = xlThemeColorAccent4 .Pattern = xlSolid .PatternColorIndex = xlAutomatic .TintAndShade = 0.8 .PatternTintAndShade = 0 End With End With With .Cells(5, 5) .Interior.TintAndShade = 0.4 End With .Activate End With '// worksheet 1 End With '// wbNew End Sub

DocAElstein · May 31, 2014

Hello
Danke!
Alan

DocAElstein · May 31, 2014

Hello
. I’ve worked through wot you sent a few times. I think I follow and understand everything. I think perhaps I roughly understood the main points already but it helped to get it clear in my head again. I Also learnt some useful new stuff including practice with Activesheet and distinguishing between activating and selecting. I used your code to produce the following code which I hope demonstrates the point of the “effective” “AlanActivecell” of which there can “effectively” be lots of at the same time!!
. I’ve learnt a lot. Thanks again for your efforts
Alan

( P.s. 1) you probably meant to write … “ wbNew.Close true “ instead of “ wbNew.Close False “ somewhere
. 2) I think the word “ Windows “ was missing in a message box or two
. 3) I’m not quite sure what the line “ .Parent.Worksheets(i).Activate “ does? )

Hallo
. Ich bin jetzt eine paar Mal durch ihren Code und denk ich verstehe es zum größte teile. Evtl. hab ich schon sehr grob verstanden die Haupt Sachen das sie mir erklären wollte aber es hat Gehilfen es nochmal Klar in meine Kopf zu kriegen. Das gesagt ich habe viele anderer sehr gute Sachen gelernt, u.a. Habe zu erste mal mit Activesheet beschäftigt und es war gut um zu unterscheide zwischen aktivieret Cell und selektierend cell . Ich habe ihren Code bemutz um die folgender Code zu schreiben. Ich denke das hilft noch zu erklär meine Idee das man “quasi” viele active cells haben kann gleich zeitig!!
. Ich Habs viele gelernt. Vielen danke für ihren muhe
Alan

( P.s. 1) sie haben evtl. gemeint zu schreiben … “ wbNew.Close True “ statt “ wbNew.Close False “ irgendwo
. 2) Evtl. fehlt die Worte “ Windows “ in einiger Message box
. 3) Ich war nicht ganz sicher was “ .Parent.Worksheets(i).Activate “ tut?

Code:

[/COLOR][COLOR=#0000FF]Sub[/COLOR][COLOR=#000000] AlanActiveCellDemonstration()
 
[/COLOR][COLOR=#0000FF]Dim [/COLOR][COLOR=#000000]i As [/COLOR][COLOR=#0000FF]Integer[/COLOR][COLOR=#000000]
 
[/COLOR][COLOR=#008000]' #1  This following part simply puts some numbers in some cells for demonstration purposes[/COLOR][COLOR=#000000]
[/COLOR][COLOR=#0000FF]For [/COLOR][COLOR=#000000]i = 1 [/COLOR][COLOR=#0000FF]To[/COLOR][COLOR=#000000] 4 [/COLOR][COLOR=#0000FF]Step[/COLOR][COLOR=#000000] 1
    Excel.Application.ThisWorkbook.Worksheets.Item(1).Cells(i, i).Range("A1").Value = i
[/COLOR][COLOR=#0000FF]Next[/COLOR][COLOR=#000000] i
[/COLOR][COLOR=#008000]'
' #2  This following part adds some windows by the method demonstrated by Greg Truby
'    (Alternatively I could simply, as in my work, open 4 different files)[/COLOR][COLOR=#000000]
[/COLOR][COLOR=#0000FF]For i[/COLOR][COLOR=#000000] = 1 [/COLOR][COLOR=#0000FF]To [/COLOR][COLOR=#000000]3 [/COLOR][COLOR=#0000FF]Step[/COLOR][COLOR=#000000] 1
    Application.ThisWorkbook.NewWindow
[/COLOR][COLOR=#0000FF]Next[/COLOR][COLOR=#000000] i
Application.ThisWorkbook.Windows.Arrange xlArrangeStyleTiled
[/COLOR][COLOR=#008000]'
' #3  This following part does what I would do manually, that is to say going through the
'   Windows and picking out what info I want by clicking on the relevant cell[/COLOR][COLOR=#000000]
         [/COLOR][COLOR=#0000FF]For[/COLOR][COLOR=#000000] i = 1 [/COLOR][COLOR=#0000FF]To[/COLOR][COLOR=#000000] 4[/COLOR][COLOR=#0000FF] Step[/COLOR][COLOR=#000000] 1
            [/COLOR][COLOR=#0000FF]With[/COLOR][COLOR=#000000] Windows.Item(i)
                .Activate
                .ActiveSheet.Cells(i, i).Range("a1").Activate[/COLOR][COLOR=#008000] ' I could use select here
'                   as Select or Activate seems to have the same effect[/COLOR][COLOR=#000000]
           [/COLOR][COLOR=#0000FF] End With[/COLOR][COLOR=#000000]
      [/COLOR][COLOR=#0000FF]  Next[/COLOR][COLOR=#000000] i
[/COLOR][COLOR=#008000]'
'  #4   This following part demonstrates the point I was making about "effectively" having
'   lots of active cells at the same time: Although technically i am using the windows
'   active cell, if I had different worksheets or different workbooks in the windows
'   then i have "effectively" 4 different workbooks or worksheets in front of me,
'   and "effectively" they all have their own active cell
'     My 4 "effective" active cells can be accessed, and its properties and functions
'   used, for example in further calculations,[/COLOR][COLOR=#000000]
[/COLOR][COLOR=#0000FF]Dim[/COLOR][COLOR=#000000] SumOfAlanActiveCellsValue As[/COLOR][COLOR=#0000FF] Integer[/COLOR][COLOR=#000000]
[/COLOR][COLOR=#0000FF]Let[/COLOR][COLOR=#000000] SumOfAlanActiveCellsValue = 0
For i = 1 To 4 Step 1
[/COLOR][COLOR=#0000FF]Debug.Print [/COLOR][COLOR=#000000]Windows.Item(i).Caption & " Last Activated cell value" & Windows.Item(i).ActiveCell.Value
[/COLOR][COLOR=#0000FF]Let[/COLOR][COLOR=#000000] SumOfAlanActiveCellsValue = SumOfAlanActiveCellsValue + Windows.Item(i).ActiveCell.Value
[/COLOR][COLOR=#0000FF]Next[/COLOR][COLOR=#000000] i
[/COLOR][COLOR=#0000FF]Debug.Print[/COLOR][COLOR=#000000] SumOfAlanActiveCellsValue
[/COLOR][COLOR=#008000]'[/COLOR][COLOR=#000000]
[/COLOR][COLOR=#0000FF]End Sub [/COLOR][COLOR=#008000]' AlanActiveCellDemonstration()[/COLOR][COLOR=#000000][/COLOR][COLOR=#000080]

Greg Truby · Jun 1, 2014

I think we've probably covered all we can here. A couple of final points:

There are two types of Windows collections:
- The general collection of all the windows in Excel
- A workbook's windows collection of those windows for that specific workbook.
You appear to be using the two collections interchangeably.
It is dangerous to loop the general windows collection and .activate items in that window. You may accidentally reference a hidden window. If you .activate a hidden window it becomes unhidden. If you attempt to .activate the activecell of a hidden window you will raise an error.
No, the wbNew.Close False was intentional. It was a throw-away workbook, no need to keep it.
Yes, the word "windows" was missing from one message.
The parent of the window object there was the workbook, not the application. An alternate syntax might have been
Code:
```
With .Windows(.Name & ":" & 4)
    .Activate
End With
.Worksheets(1).Activate
```

Ich denke, wir haben wahrscheinlich alle, die wir hier behandelt. Ein paar letzte Punkte:

Es gibt zwei Arten von Windows- Sammlungen:
- Die allgemeine Sammlung aller Fenster in Excel
- Eine Arbeitsmappe Windows Sammlung von diesen Fenstern für diesen speziellen Arbeitsmappe.
Sie scheinen sich mit den beiden Sammlungen austauschbar.
Es ist gefährlich, die allgemeine Schleife Windows Sammlung und .Activate Elemente in diesem Fenster. Sie können versehentlich Referenz ein ausgeblendetes Fenster. Wenn Sie .Activate ein ausgeblendetes Fenster aktivieren wird eingeblendet. Wenn Sie .Activte die .ActiveCell von einem versteckten Fenster wird eine Fehler erhöhen.
Nein, die wbNew.Close falsch vorsätzliche war . Es war ein Wegwerf-Arbeitsmappe , keine Notwendigkeit, es zu behalten.
Ja, das Wort "Fenster" wurde von einer Nachricht fehlt.
Das übergeordnete Objekt des Fensters gab es die Arbeitsmappe, nicht die Anwendung. Eine alternative Syntax könnte
Code:
```
With .Windows(.Name & ":" & 4)
    .Activate
End With
.Worksheets(1).Activate
```

DocAElstein · Jun 1, 2014

Hi Greg
Great, Super,! Thanks for all your Help, I’ve learnt lots and probably learn more when I go through and think carefully about all you said
Cheers,
Alan

Hi Greg
Alles klar!, Super Ich hab’s viele gelernt
Danke nochmal
Alan.

DocAElstein · Jun 16, 2014

Re :- Copying Code into a Thread or Reply without losing (colour) format.

To Greg Truby
Hello, just a quick one this time!!:- Is it easy to explain how you copied the code in one of your answers ( the one where you didn’t use the code tags...... http://www.mrexcel.com/forum/questi...rch-workbooks-oder-windows-oop-methode-2.html ) and were able to keep the format (for example green color in the comment). Or is it complicated and I must learn all about HMTL, XBHMTL or whatever it is?? , ( as suggested to me by MrExcel MVP Moderator Peter_SSs in the Thread / Link ( http://www.mrexcel.com/forum/about-board/780464-re-text-format-forums-o00o-`-_-`-o00o.html )
Thanks, Alan
P.s. I tried to send this “Private” to you ( http://www.mrexcel.com/forum/private.php?do=newpm&u=5023 )but it didn’t work – your messages were “Full”. This question is not urgent so Don’t answer if you’re too busy!!

An Greg Truby,
Hi, ich bin wieder, nur kurz dieses mall!!:- Können sie mir einfach erklären wie sie ihren Code Kopieret in einer deine Antwort (ohne die Code tags……. http://www.mrexcel.com/forum/questi...rch-workbooks-oder-windows-oop-methode-2.html ), und die Formattieren (Zb. Grün Kommentar b) behalten habe?.. Oder gibt’s keine einfach erklären und ich muss alles über HTML VBHTML, oder was immer lernen davor?? (Wie zu mir bei MrExcel MVP Moderator Peter_SSs empfohlen in die Thread / Link ( http://www.mrexcel.com/forum/about-board/780464-re-text-format-forums-o00o-%60-_-%60-o00o.html )
Danke, Alan
P.s. Ich Habs versuchte diese Fragen direkt an sie „Private“ zu schreiben ( http://www.mrexcel.com/forum/private.php?do=newpm&u=5023 ) aber ihren Nachrichten war voll. – Also falls sie sehr beschäftigt bin, dann ignorieren dies fragen, weil es nicht zu wichtig ist.

Excel VBA Kopierern durch .Workbooks . .. oder .Windows .. OOP Methode

DocAElstein

Banned user

Greg Truby

MrExcel MVP

Excel Facts

Greg Truby

MrExcel MVP

DocAElstein

Banned user

DocAElstein

Banned user

Greg Truby

MrExcel MVP

DocAElstein

Banned user

DocAElstein

Banned user

Similar threads

Forum statistics

Share this page

Excel VBA Kopierern durch .Workbooks . .. oder .Windows .. OOP Methode

Banned user

MrExcel MVP

Excel Facts

MrExcel MVP

Banned user

Banned user

MrExcel MVP

Banned user

Banned user

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock