Forums Neueste Beiträge
 

Einer Zelle aus dem Namens-Manager per VBA einen Wert zuweisen (Excel 2012)

27/08/2012 - 14:40 von Marcello | Report spam
Werte Kollegen

In einer Berechnung auf den Excelsheet gibt es eine Zelle für den Dateninput (Name: KM6x6AWK_Navigator_I) und für den Datenoutput (KM6x6AWK_Navigator_O).

In einer Function Test1() kann ich den Wert des Outputs wie folgt auslesen:
Test1 = wsKonfigMatrix.Range("KM6x6AWK_Navigator_O").Value. Dies klappt.

Gerne möchte ich aus der Funktion der Inputzelle einen Wert zuweisen.
wsKonfigMatrix.Cells.Range("KM6x6AWK_Navigator_I").Value = 0.123
oder wsKonfigMatrix.Range("KM6x6AWK_Navigator_I").Value = 0.123
oder wsKonfigMatrix.Cells("KM6x6AWK_Navigator_I").Value = 0.123
oder wsKonfigMatrix.Cells("$D$11").Value = 0.123

Leider klappt einfach nichts davon.
Weiss jemand einen guten Rat?

NB:
Dim wbBook As Workbook
Dim wsKonfigMatrix As Worksheet
Set wsKonfigMatrix = wbBook.Worksheets("KonfigMatrix")

1000x Dank.
Marcello
 

Lesen sie die antworten

#1 Claus Busch
27/08/2012 - 14:54 | Warnen spam
Hallo Marcello,

Am Mon, 27 Aug 2012 05:40:49 -0700 (PDT) schrieb Marcello:

In einer Berechnung auf den Excelsheet gibt es eine Zelle für den Dateninput (Name: KM6x6AWK_Navigator_I) und für den Datenoutput (KM6x6AWK_Navigator_O).

In einer Function Test1() kann ich den Wert des Outputs wie folgt auslesen:
Test1 = wsKonfigMatrix.Range("KM6x6AWK_Navigator_O").Value. Dies klappt.

Gerne möchte ich aus der Funktion der Inputzelle einen Wert zuweisen.
wsKonfigMatrix.Cells.Range("KM6x6AWK_Navigator_I").Value = 0.123
oder wsKonfigMatrix.Range("KM6x6AWK_Navigator_I").Value = 0.123
oder wsKonfigMatrix.Cells("KM6x6AWK_Navigator_I").Value = 0.123
oder wsKonfigMatrix.Cells("$D$11").Value = 0.123

NB:
Dim wbBook As Workbook
Dim wsKonfigMatrix As Worksheet
Set wsKonfigMatrix = wbBook.Worksheets("KonfigMatrix")



bekommst du keine Fehlermeldung weil wbBook nicht initialisiert
wird?Stimmt dein Name für die Input-Zelle?
Bei mir funktioniert es so:

Sub Test()
Dim wbBook As Workbook
Dim wsKonfigMatrix As Worksheet

Set wsKonfigMatrix = Worksheets("KonfigMatrix")
wsKonfigMatrix.Range("KM6x6AWK_Navigator_I") = 0.123
End Sub


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

Ähnliche fragen