Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nebenzelle füllen, wenn wert angegeben ist

Forumthread: nebenzelle füllen, wenn wert angegeben ist

nebenzelle füllen, wenn wert angegeben ist
27.05.2008 11:25:53
Roland
Hallo!
Ich habe einen Auftrag bekommen, mittels VBA in excel zellen (in spalte b) mit dem aktuellen datum auszufüllen, wenn spalte A (in der gleichen zeile) einen wert enthält (kann irgenein wert sein).
hab leider noch keine erfahrung in vba, soll aber mittels einem forum und fragen zum ergebnis kommen.
ich hoffe, dass ich mein problem verständlich beschrieben habe. ansonsten bitte kurze rückmeldung!
vielen dank!
mfg roland

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nebenzelle füllen, wenn wert angegeben ist
27.05.2008 11:39:00
Erich
Hallo Roland,
eine Möglichkeit (in ein normales Modul): 

Option Explicit
Sub DatumInB()
Dim lngZ As Long
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(Cells(lngZ, 1)) And IsEmpty(Cells(lngZ, 2)) Then _
Cells(lngZ, 2) = Date
Next lngZ
End Sub

Du kannst dir aus der Formular-Symbolleiste einen Button auf das Blatt legen und das Makro dem Button zuweisen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: nebenzelle füllen, wenn wert angegeben ist
27.05.2008 11:59:01
Hoffi
Hallo Roland,
wenns beim füllen der Zellen in a1 passieren soll, dann so:
ins Modul der aktuellen Tabelle:

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


Grüße
Hoffi

Anzeige
;

Forumthreads zu verwandten Themen

WENN-Funktion: Zellen ausschneiden / abändern
Sascha

Hallöchen,
ich habe 2 Listen, in der linken stehen offene Beträge mit Rechnungsnummer und vorraussichtlichem Zahlungsdatum, in der rechten stehen die selben Daten, nur sollen Sie dort nur angezeigt werden, wenn Sie erledigt sind.
Zwischen beiden Zeilen sind Kontrollkästchen, die mit der...
27.12.2008 07:22:23
Thread-ID: 1035343
20 Beiträge
Zellen kopieren wenn 2 werte stimmen
Andreas

hallo zusammen
ich habe ein problem an welchem ich bereits länger übe. aus einer datenbank möchte ich bestimmte werte in eine liste in einem anderen tabellenblatt einlesen.
vom ablauf her siehts so aus: wenn datum und nr aus der datenbank mit den werten im tabellenblatt "einladung" über...
28.01.2009 19:27:20
Thread-ID: 1044683
3 Beiträge
Wertkopie wenn Zelle bestimmte Formel enthält
Marc

Hallo.
Ich brauche ein Makro, welches ein Arbeitsblatt Zelle für Zelle durchsucht und in Zellen, in denen Formeln mit =DBR, =DBS stehen eine Wertekopie der Zelle macht. Alle anderen Formeln etc. sollen so bleiben wie sie sind. Problem ist, es kann auch sein, dass z.B. eine wenn-Formel diese...
17.03.2009 15:28:17
Thread-ID: 1061136
3 Beiträge
Zelle farblich wenn in zeile Wert MIN
PointOfView

Einen schönen guten Tag,
ich hoffe mir kann jemand helfen. Im Forum "Clever-Forum" habe ich´s schon mal versucht, bin jedoch kläglich gescheitert. Daher bitte nicht auf Crossposting hinweisen. Hab mich da wieder abgemeldet.
Ich habe eine Tabelle mit reichlich Spalten (kann bis Spalte "I...
17.04.2009 16:39:45
Thread-ID: 1069342
11 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Wert berechnen auch wenn in Zelle nichts steht
Sascha

Hallo,
ich habe in Spalte A die Einnahmen zu stehen, in Spalte B die Ausgaben und möchte mir in der Spalte C den Bestand anzeigen lassen. Nun möchte ich aber nur dann einen Wert anzeigen lassen, wenn in einer Zelle A? oder Zelle B? etwas eingetragen wird. Dieses Problem löse ich mit folgend...
13.05.2009 11:30:47
Thread-ID: 1074765
11 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Zelle färbenm wenn zwei Bedingungen
Sandra

Hallo zusammen,
ich muss in folgendes Makro noch eine weitere Prüfung einbauen, ich weiß aber nicht wie.
Sub Guthaben_größer_Null_färben() Dim zeile As Long Dim LetzteZeile As Long With ActiveSheet Range("K2").Select 'Spalte und Zelle anpassen LetzteZeile = .Range("A65536").End(xlUp)....
22.06.2009 22:26:09
Thread-ID: 1083615
6 Beiträge
Ergebnis in Zelle nur anzeigen wenn in Zelle Wert
Sascha

moin,
hab hier eine ganz einefache Formel:
A B
1 2000 5
2 =A1-B1
3 =A2-B2
Wenn ich nun die Formel in Spalte A weiter fortführe wird immer das letzte Ergebnis angezeigt. Wenn nun aber noch kein Wert in Spalte B eingetragen ist, soll die Formel/Ergebnis auch ni...
27.09.2009 08:47:36
Thread-ID: 1105800
3 Beiträge
Wenn in Zelle P Inhalt dann schreibe in Zelle X
Viktoria

Hallo Leute,
hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ende...
13.04.2010 09:14:04
Thread-ID: 1151360
6 Beiträge
Anzeige
multiple "wenn-dann"-funktionen in EINER zelle
RoB

Hallo Leute,
ich möchte anhand einer nutzwertanalyse kriterien gegenüberstellen und auswerten.
ich möchte, dass excel mir ein der einen hälfte der tabelle die entsprechenden werte automatisch ausfüllt, je nachdem welchen wert ich auf der anderen hälfte eingegeben habe. es sind allerding...
07.05.2010 15:47:47
Thread-ID: 1156124
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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