Frage von Zetesafe, 27

[Visual Basic] Etwas auf die Excel Arbeitsmappe schreiben?

Meine Frage ist eigentlich simpel aber ich komme nicht auf die Lösung. Ich möchte dass wenn diese Funktion in meinem Visual Basic Script aufgerufen wird:

Function 33 [Das hier suche ich] End Function

Das dadurch dann H3CO in Zeile A1 auf der zweiten Tabelle geschrieben wird. Ich habe es mal so versucht: Sheets("Tabelle2").Range("A1").Value = "H3CO" aber das hat nicht geklappt.

Danke an alle die sich Gedanken machen

Antwort
von Suboptimierer, 27

Unter welchem Objekt hast du denn deinen Code programmiert? (Modul, Klasse, Arbeitsmappe, Tabelle,...)

Kommentar von Suboptimierer ,
Function33
msgbox "fertig"
Sub Function33 Dim oExcel Dim oWBSet oExcel = CreateObject("Excel.Application") oExcel.Visible = True Set oWB = oExcel.Workbooks.Open("E:\tmp\xxxx.xlsx") oWB.Sheets("Tabelle2").Range("A1").Value = "H3CO" End Sub
Kommentar von Zetesafe ,

Hi, danke für deine Hilfe 

Es ist ein Modul das zu der Arbeitsmappe in die ich reinschreiben will dazugehört. Habe den Code mal ausprobiert aber es klappt irgendwie nicht. Trotzdem danke

Kommentar von Suboptimierer ,

Mein Code ist als Visual Basic Script gedacht, so wie du es in der Frage erwähnt hast. 

"...wenn diese Funktion in meinem Visual Basic Script aufgerufen wird..."

Du hast anscheinend das Wort Script verwendet, ohne zu wissen, dass es einen erheblichen Unterschied macht.

Dann probiere folgendes im Modul:

Sub Function33() 
 ThisWorkbook.Sheets("Tabelle2").Range("A1").Value = "H3CO"
End Sub

Keine passende Antwort gefunden?

Fragen Sie die Community