Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zirkelbezüge

Zirkelbezüge
18.10.2006 16:11:58
jörg
servus,
ich hab da mal nen problem.
ich möchte in einem excelblatt einheiten umrechnen. also z.b. mm in cm in dm in m in km. wenn in einer zelle/Textfeld ein wert geändert wird, soll dabei in den anderen zellen der jeweils umgerechnete wert stehen. dabei soll es egal sein, wo man den umzurechnenden wert eingibt.
Prob ist, das in einer zelle hinterlegte formel, von einem darin eingegebenen wert überschrieben wird und somit beim nächsten mal nicht mehr funktioniert. Mit Code ala: Private Sub Textbox1_Change() funktioniert auch nur so lange, wie nur in einer Textbox geändert werden darf.
is das so kompliziert oder steh ich nur auf der leitung?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zirkelbezüge
18.10.2006 18:33:47
K.Rola
Hallo,
Beispiel für A1 und B1, ohne professionelle Fehlerüberprüfung:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error GoTo ENDE
Application.EnableEvents = False
[b1] = [a1] * 1000
ElseIf Target.Address = "$B$1" Then
On Error GoTo ENDE
Application.EnableEvents = False
[a1] = [b1] / 1000
End If
ENDE:
Application.EnableEvents = True
End Sub

Gruß K.Rola
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige