Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA wenn;dann; sonnst Wert vom Vortag

VBA wenn;dann; sonnst Wert vom Vortag
08.01.2017 14:29:34
Becker
Hallo Zusammen,
Hat jemand von euch eine VBA Lössung für mich?
Folgendes Szenario
Wenn in Tabelle 1 das Datum sich am nächsten Tag aktualiesiert springen die
werte F8:F12 Tabelle1 auch in der Tabelle2 in die Spalte mit gleichem Datum wie Tabelle1 ist ja auch richtig,
aber gibt es eine möglichkeit das die werte des Vortages erhalten bleiben?
hier ist die Datei.
https://www.herber.de/bbs/user/110400.xlsx
Gruß Andreas

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA wenn;dann; sonnst Wert vom Vortag
08.01.2017 15:43:50
Fennek
Hallo,
m.K.n. geht dies nur mit vba: mit dem event "before_save" kann man die Formeln durch die Werte ersetzen.
mfg
AW: dazu angemerkt ...
08.01.2017 16:43:06
...
Hallo Fennek,
... in einem andern thread hatte ich Andreas schon mitgeteilt, dass dies nur mit VBA geht, ich mich aber aus VBA grundsätzlich heraus halte. Dein Hinweis wird Andreas wohl kaum weiterhelfen, wenn ich auf dem von ihm angegebenen Level schaue.
Gruß Werner
.. , - ...
AW: VBA wenn;dann; sonnst Wert vom Vortag
08.01.2017 17:04:18
Daniel
Hi
naja, diese Lösung ist etwas unglücklich.
ich würde die Spalte F ganz weglassen und die Werte direkt in die rechte Tabelle eintragen.
die Spalte mit dem aktuellen Datum kannst du ja über die Bedingte Formatierung gesondert hervorheben, damit man weiß wo man eintragen muss.
Gruß Daniel
Anzeige
AW: ähnlichen Hinweis hatte ich schon gegeben owT
08.01.2017 17:07:24
...
Gruß Werner
.. , - ...
AW: ... und zwar im thread ...
08.01.2017 17:35:43
Daniel
Hi Werner
naja, vielleicht wirkt es ja überzeugender, wenn er von mehreren Antwortern die gleiche Antwort bekommt.
ansonsten, liest du immer jeden neuen Beitrag?
(und wo wir schon beim lesen sind, angesichts deiner Anrede, wer soll sich überhaupt angesprochen fühlen?)
Gruß Daniel
AW: da kann ich nur schreiben ...
08.01.2017 18:03:09
...
Hallo Daniel,
... sorry, für die falsche Anrede. Wenn ich mich recht erinnere, ist es nun schon zumindest zum zweiten Mal, dass ich Dich mit einem unzutreffenden Vornamen angesprochen habe. Es geschah jedenfalls stets ohne Absicht.
Gruß Werner
.. , - ...
Anzeige
AW: bin etwas weiter gekommen
08.01.2017 19:07:13
Becker
hallo leute,
funktioniert aber nur mit Zahlen,
Private Sub Worksheet_Calculate()
Dim objCell As Range
If Date > "05.01.2017" Then         'Datum nach Wunsch anpassen
For Each objCell In Range("J7:N12")
If objCell.HasFormula Then _
If IsNumeric(objCell.Text) Then _
If Fix(objCell.Value) = objCell.Value Then _
objCell.Value = objCell.Value
Next
End If
End Sub
habe isNumeric durch IsText zu ersätzen versucht bekomme leider eine Fehlermeldung.
wo ist der Fehler?
AW: bin etwas weiter gekommen
08.01.2017 19:30:09
Daniel
Hi
ungünstiger Ansatz.
Schau dir mal meine andere Lösung an.
dort wird beim Ausfüllen der Spalte F der Wert parallel in die entsprechende Zeile und Spalte der Tabelle2 eingetragen. Damit brauchst du keine Formeln mehr.
Gruß Daniel
Anzeige
AW: ... und zwar im thread ...
08.01.2017 18:00:34
Becker
Hallo Leute,
das mit dem direkt in die Tabelle2 eintragen wäre natürlich sinnvoller nur,nicht jeder soll zugriff darauf haben es sind vertrauliche informationen darin welche nicht jeder erfahren soll wie Adressen Tel.Nr.usw.
wir haben in der Abteilung um die 120 MA,5 davon machen die Anwesenheitslisten und der Leiter muss dann manuel die einträge in die Dattenbank eintragen.
Dachte da mir EXCEL sowieso viel spass macht und ich gerne was neues lehrne probiere ich es zu machen.
So sollte es ungefer sein,hier der link
https://www.herber.de/bbs/user/110410.xlsx
Menü war für die bereichsleiter gedacht wo die ihre Anwesendheit machen können und die eingaben Automatisch in die Abteilung Automatisch übertragen werden.
Nun ja habe mich wohl überschätzt.
Gruß Andreas
Anzeige
AW: ... und zwar im thread ...
08.01.2017 18:14:45
Daniel
HI
mit diesem Code werden die Änderungen in Spalte F automatisch in die Tablle2 übertragen.
die Spalte berechnet sich aus der Differnz vom aktuellem Datum zum ersten Datum der Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Spalte As Long
Dim Zelle As Range
If Intersect(Target, Range("F8:F1000")) Is Nothing Then Exit Sub
Spalte = 10 + Range("F7").Value - Range("J7").Value
If Spalte
Gruß Daniel
AW: ... und zwar im thread ...
08.01.2017 19:27:32
Becker
Hallo Daniel,
Danke für deine mühe,
ich kriege die Code aber nicht zum laufen,
also rechtsklick - Code anzeigen-Code eingefügt, beim ausführen kommt eine meldung ich soll ein makro erstellen.was mache ich falsch?
Gruß Andreas
Anzeige
AW: ... und zwar im thread ...
08.01.2017 19:35:36
Daniel
Hi
richtiges Modul erwischt?
der Code muss ins Modul des Tabellenblatts, wo das ganze passieren soll, also Modul Tablle1
wenn du das Modul im Projetkexplorer auswählen willst, musst du einen Doppeltklick auf den Zweig machen.
direkt zum Modul kommst du, wenn du den Rechtsklick auf den Registerreiter des Tabellenblatts machsts und dort "Code anzeigen" auswählen.
Gruß Daniel
AW: ... und zwar im thread ...
08.01.2017 19:42:56
Becker
@Daniel,
kannst du mir bitte noch verraten was ich im Code noch ergenzen muss damit werte von Tabellenblatt 1 auf Tabellenblatt 2 übertragen werden.
Gruß Andreas
AW: ... und zwar im thread ...
08.01.2017 19:52:47
Daniel
Hi
vor jedem Zellbezug (Range, Cellsd), der auf dem zweiten Tabellenblatt liegt, musst du diesen Tabllenblattnamen hinschreiben.
am besten nimmst du den Namen, der im ProjektExplorer VOR der Klammer steht:
also Tabelle2.Range("J7") und Tabelle2.Cells(Zelle.Row, Spalte)
vor Zellbezügen, die auf dem Blatt liegen zu dem der Code gehört, brauchst du nichts hinschreiben.
Gruß Daniel
Anzeige
AW: ... und zwar im thread ...
08.01.2017 19:31:48
Becker
Daniel Sorry,
es Funktioniert!!! Ich liebe EXCEL
Vielen Dank!
Gruß Andreas
AW: es ist fast perfekt ...
09.01.2017 07:14:24
Becker
Hallo Zusammen ,
Hallo Daniel,
...aber ,ich habe in Tabelle1 5 Bereiche wo Werte eingegeben werden Bereich1" I8:I30"
Bereich2 "M8:M30" ,Bereich3 "Q8:Q30" ;Bereich4 "U8:30" ,Bereich5 "Y8:Y30" ,neben einander stehen.
In Tabelle2 wochin die Werte übertragen werden, sind auch 5 Bereiche nur unter einander
nun zum Problem, wenn ich in Tabelle1 Bereich1 "I8:I30" was eingebe wird es ja auch in Tabelle2
übertragen! Frage kann man den Code ergenzen damit die Werte auch von den anderen vier Bereichen
übertragen werden übertragen werden?
Gruß Andreas
Anzeige
AW: es ist fast perfekt ...
09.01.2017 08:48:14
Daniel
Hi
wenn man gewusst hätte, dass es so ist, hätte man den Code auch gleich so schreiben können.
jetzt musst du dir ihn entsprechen ergänzen.
Ich kann mich, wenn ich einen Code schreiben, nur nach den Informationen richten die mir gegeben werden.
Gruß Daniel
AW: es ist fast perfekt ...
09.01.2017 09:48:44
Becker
Sorry Daniel,ist mir erst Heute in der Arbeit eingefahlen bzw. aufgefahlen.
kannst du mir Bitte sagen wo ich ansätzen muss bzw. wonach ich suchen muss?
Gruß Andreas
AW: es ist fast perfekt ...
09.01.2017 10:04:44
Daniel
Hi
du musst aus dem 
If Intersect(Target, Range("F8:F1000")) Is Nothing Then Exit Sub

einen echten IF-Block machen, dh ohne Exit Sub, aber mit End IF: 
If Not Intersect(Target, Range("F8:F1000")) Is Nothing Then
Spalte = 10 + Range("F7").Value - Range("J7").Value
If Spalte
und dann diesen Block für jeden Zellbereich mit seinen Spezifischen Daten wiederholen.
Gruß Daniel
Anzeige
AW: es ist fast perfekt ...
10.01.2017 08:12:08
Becker
Hallo Zusammen,
so habe ich es gemacht
If Not Intersect(Target, Range("M8:M30")) Is Nothing Then
Spalte = 10 + Range("C4").Value - Tabelle2.Range("J7").Value
If Spalte < 10 Then Exit Sub
Application.EnableEvents = False
For Each Zelle In Intersect(Target, Range("M8:M30"))
Tabelle2.Cells(Zelle.Row, Spalte).Offset(23, 0) = Zelle.Value
Next
Application.EnableEvents = True
End If
ist doch richtig,oder?
Danke an alle ihr seit spitze.
Gruß Andreas
AW: ... und zwar im thread ...
14.01.2017 14:22:15
Becker
Hallo Zusammen,
Hallo Werner,
kannst du mir bitte sagen warum die Formel (vom anderem Tread) =WENNFEHLER(INDEX(Tabelle2!B$8:B$50;KGRÖSSTE(INDEX((INDEX(Tabelle2!J$8:PV$50;;VERGLEICH(HEUTE();J$5:PV$5;))="K")*ZEILE(B$8:B$50)-12;);ZEILE(B1)));"")
nicht in anderer Arbeitsmappe funktioniert?
Bereiche habe ich natürlich geändert die werden aber nicht Farblich in der Formel?
Gruß Andreas
Anzeige

343 Forumthreads zu ähnlichen Themen

Automatische Werte befüllen wenn bestimmtes Datum
Heiderer

Hallo!
Ich habe folgendes Excel-Sheet:
In Spalte A soll mittels VBA ein Datum eingefügt werden, zb. 01.09.2008. In Spalte B soll ein Betrag zb. € 70,00 eingetragen werden. Bezüglich der Spalte B gibt es kein Problem. Es geht nur um die Spalte A.
Ich will nämlich, dass Excel autom...
03.09.2008 13:43:00
Thread-ID: 1007096
30 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Aufgabe an Outlook wenn Datum gleich heute
Lucia

Hallo zusammen,
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht...
26.11.2008 16:00:07
Thread-ID: 1028078
3 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
aktuelles Datum anzeigen
Philipp

Hallo liebe Herber-Gemeinde,
ich möchte gern, dass mir Excel das aktuelle Datum in einer Zelle anzeigt. Weiss leider nicht wie das geht.
Vielleicht kann mir zusätzlich noch jemand sagen, wie man das mit einer Formel verknüpft wenn ich die Datumzelle mit der Bezeichnung "heut" in eine Fo...
09.12.2008 08:53:21
Thread-ID: 1031245
3 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge

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
29
5
6
11
2
1
2
12
2
4
3
3
1
8
2
3
2
8
7
4
2
3
3
5
1