Daten ohne VBA übernehmen

[Manfred1]

Hallo zusammen,
In Tabelle 1 ist die Zelle  A1 mit einen VBA-Code unterlegt.
Den Wert von A! soll nun in A2 mittels VBS übertragen werden.
Mein Problem hierbei:  Der unterlegte VBA Code in T1, A1 wird dabei gelöst.
Wie kann ich diese Löschung verhindern ?
Danke im Voraus für eure Hilfe.
Lieben Gruß ins Forum
Manfred1

[BoskoBiati]

Hi,

Code:

In Tabelle 1 ist die Zelle  A1 mit einen VBA-Code unterlegt.

Wie muß man das verstehen?

mittels VBS

Was ist das?

Code:

unterlegte VBA Code in T1, A1 wird dabei gelöst.

In was, Alkohol oder Wasser?? :19: :19:

[chris-ka]

Hi,

dein VBS Code wäre interessant....(hier mal ein Bsp)

dim objXL
dim objSheet
Set objXL = GetObject(, "Excel.Application")
Set WB = objXL.ActiveWorkbook
Set objSheet = objXL.ActiveWorkbook.Activesheet
objXL.EnableEvents = False
objSheet.Range("A2").Value = objSheet.Range("A1").Value
objXL.EnableEvents = True
set objXl =nothing
set objSheet =nothing

ich tippe mal auf ein Changeevent in deiner Mappe das sonst ausgelöst wird
EnableEvents unterbindet dieses.

[Manfred1]

Vielleicht ist mein Posting etwas unverständlich formuliert.
Folgende Annahmen:
Ich habe  auf Tabellenblatt 1 unter A1-A5 eine Reihe von Postleitzahlen 
Daneben zugeordnet sind die jeweiligen Orte in der Reihe  B1-B5.

In A10  gebe ich nun ein Suchkriterium ein  (z.B. eine Postleitzahl)
A11 ist mit einem  Sverweis unterlegt, so dass mitr der passende  Wert aus B1-B5 ausgegeben wird. .

Soweit sogut.

Nun möchte ich mittels VBA den Wert aus  A11 (wie gesagt, die Zelle ist mit einer Formel unterlegt)
auf das Tabellenblatt 2 übertragen. Hierbei wird aber die Formel (Sverweis) gelöst, was ich vermeiden möchte.
Vieleicht kann mir jemand hierbei behilflich sein.
Gruß an alle
Manfred

[Kuwer]

Hallo Manfred,

folgender Code kommt in das VBA-Modul des Tabellenblattes "Tabelle1":

Private Sub Worksheet_Calculate()
 Worksheets("Tabelle2").Range("B2").Value = Me.Range("A11").Value
End Sub

Gruß Uwe

[WillWissen]

Hi Manfred,

warum so verbiegen? Schreibe deine Abfrage doch gleich in dein Tabellenblatt2

Tabelle1

	A	B	C	D	E
1	PLZ	Orte		Tabellenblatt2
2	1	a
3	2	b		PLZ	2
4	3	c		Ort	b
5	4	d
6	5	e

Formeln der Tabelle

Zelle Formel E4 =SVERWEIS(E3;Tabelle1!A:B;2;0)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Wenn deine PLZ aufwärts sortiert sind, reicht sogar ein einfacher VERWEIS:

Code:

=VERWEIS(E3;Tabelle1!A:B)