Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spreadsheet, Zellen ändern automatisch

Spreadsheet, Zellen ändern automatisch
09.01.2004 11:34:16
Andre
Guten Morgen,
kann mir jemand sagen, wie ich einem Spreadsheet auf einer Userform sagen kann, dass die Zelle F automatisch mit der Zahl 16 gefüllt werden soll, wenn in dieser Zeile die Zelle D in Nichtleer geändert wird?
Gruß Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spreadsheet, Zellen ändern automatisch
09.01.2004 14:04:53
Nepumuk
Hallo Andre,
mit einer einfachen Formel, genau so wie in einer Exceltabelle.
Gruß
Nepumuk
AW: Spreadsheet, Zellen ändern automatisch
09.01.2004 14:15:36
Andre
Hi Nepumuk,
schon klar, aber ich möchte diese Zelle nicht sperren, sondern dem User die Eingabe trotzdem ermöglichen. Über VBA geht sowas z.B. über folgende Formel, aber das haut für den Spreadsheet nicht hin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1).Value = Target.Row
End If
End Sub

Gruß Andre
AW: Spreadsheet, Zellen ändern automatisch
09.01.2004 15:44:02
Nepumuk
Hallo Andre,
dann kannst du es so machen:

Option Explicit
Private Sub Spreadsheet1_Change(ByVal EventInfo As OWC.SpreadsheetEventInfo)
If Spreadsheet1.Selection.Column = 4 And Trim(Spreadsheet1.Selection.Text) <> "" Then Spreadsheet1.Cells(EventInfo.Range.Row, 6) = 16
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
Danke, funktioniert. o.T.
09.01.2004 16:44:42
Andre

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige