Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle gleichzeitig als Eingabe und Ausgabefeld

Zelle gleichzeitig als Eingabe und Ausgabefeld
15.08.2003 11:00:25
Mathias
HAllo zusammen,
ich habe zwei Spalten in excel und muss jeweils die nebeneinander liegenden zellen als Eingabe, sowie als Ausgabefeld definieren.
Wird ein Wert in die erste Spalte eingegeben soll das Ergebniss der Berechnung in der Nachbarzelle der 2 Spalte erscheinen und umgekehrt.
Die hinterlegte Berechnung ist jeweils eine Funktion des Nachbarwertes!
Wie kann ich das realisieren?
MFG
MAthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle gleichzeitig als Eingabe und Ausgabefeld
15.08.2003 11:12:41
ChrisL
Hi Mathias
Geht nur mit VBA...
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo ErrorHandler
If Target.Column = 1 Then
Application.EnableEvents = False
If Target = "" Or IsNumeric(Target) = False Then
Cells(Target.Row, 2) = ""
Else
Cells(Target.Row, 2) = Target * 2
End If
End If
If Target.Column = 2 Then
Application.EnableEvents = False
If Target = "" Or IsNumeric(Target) = False Then
Cells(Target.Row, 1) = ""
Else
Cells(Target.Row, 1) = Target * 2
End If
End If
ErrorHandler:
Application.EnableEvents = True
End Sub

Alt + F11, links Doppelklick auf Tabelle, Code einfügen.
Gruss
Chris

Anzeige

6 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige