Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

299 Forumthreads zu ähnlichen 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
Anzeige
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
19
2
2
2
1
10
2
3
10
3
5
9
1
3
2
9
5
2
2
4
2
9
1
2
3