Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.05.2025 11:04:50
Aktualisieren Button mit Piktogramm?
13.05.2025 10:24:22
Formelfehler
13.05.2025 08:10:06
Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh
13.05.2025 07:51:02
Exceldateien schneller öffnen / abspeichern?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spreadsheet, Zellen ändern automatisch

Forumthread: 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
Anzeige

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

Kategorie
Automatisierung
Tags
#automation #spreadsheets #vba
Relevante Fragen
Anzeige
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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige