|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.03.2005 12:40:21 |
Martin |
|
|
|
22.03.2005 13:22:01 |
Rasta |
|
|
|
22.03.2005 13:50:40 |
Martin |
|
|
|
22.03.2005 14:35:51 |
Rasta |
|
|
 Aw:Aw:Aw:Aw:Globale Objekte |
22.03.2005 14:59:14 |
Martin |
|
|
Von:
Martin |
Datum:
22.03.2005 14:59:14 |
Views:
1188 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Globale Objekte |
Hi rasta,
ich bin darauf gekommen
ex1.ActiveCell.Value = "90"
aber damit
ex1.Selection.Value = "90"
gehts auch.
Danke für die schnelle Hilfe
CU
Rasta schrieb am 22.03.2005 14:35:51:
Hallo Martin,
wirklich?
dann schreib stattdessen:
ex1.Selection.Value = "90"
hoffe es hilft :-)
grüße
rasta
Martin schrieb am 22.03.2005 13:50:40:
Hi rasta,
ne, da war es nicht.
jetzt stopt er in dieser Zeile
ActiveCell.Value = "90"
"Objektvariable oder With-Blockvariable nicht festgelegt."
(schulterzuck)
CU
Rasta schrieb am 22.03.2005 13:22:01:
Hallo Martin,
ich habe Deinen Code ein wenig angepasst -- und getestet -- ich konnte Ihn beliebig oft ausführen- ohne fehlermeldung :-)
wenn du den code mit deinem vergleichst, siehst du was ich anders gemacht habe.
viele grüße
rasta
Global ex1 As Object
Global ex2 As Object
Global ex3 As Object
Sub mms1()
Set ex1 = CreateObject("Excel.Application")
Set ex2 = ex1.Workbooks.Open("C:\test.xls")
Set ex3 = ex2.Sheets(1)
ex1.Visible = True
With ex3
.Name = "erste_Tabelle"
.Activate
.Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "90"
.Cells(1, 1).Activate
End With
Set ex3 = Nothing
Set ex2 = Nothing
Set ex1 = Nothing
Martin schrieb am 22.03.2005 12:40:21:
Hi,
ich bastel gerade an einer Verbindung zwischen Outlook und Excel.
Das VBA-Modul funktioniert auch.
Aber immer nur einmal. :-(
Dann gibts die Fehlermeldung:
Die Methode 'Sheets' für das Objekt '_Global' ist fehlgeschlagen.
Warum?
Das Makro soll in etwa so aussehen.
Es sind aber noch keine wirklichen Variablen zur Übertragung angegeben.
Global ex1 As Object
Global ex2 As Object
Global ex3 As Object
Sub mms1()
Set ex1 = CreateObject("Excel.Application")
Set ex2 = ex1.Workbooks.Open("C:\mms1.xls")
Set ex3 = ex2.Sheets(1)
ex1.Visible = True
With ex3
'.Name = "erste_Tabelle"
Sheets("erste_Tabelle").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "90"
.cells(1, 1).Activate
End With
Set ex3 = Nothing
Set ex2 = Nothing
Set ex1 = Nothing
End Sub
Danke für die Hilfe |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.03.2005 12:40:21 |
Martin |
|
|
|
22.03.2005 13:22:01 |
Rasta |
|
|
|
22.03.2005 13:50:40 |
Martin |
|
|
|
22.03.2005 14:35:51 |
Rasta |
|
|
Aw:Aw:Aw:Aw:Globale Objekte |
22.03.2005 14:59:14 |
Martin |
|
|