Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen in Wechselwirkung!?

Forumthread: Zellen in Wechselwirkung!?

Zellen in Wechselwirkung!?
10.09.2024 23:59:31
MTSAndy
Einen wunderschönen guten Abend zusammen!

Nachdem ich mit Google, Youtube und der Suche hier nicht weiter gekommen bin (oder ich suche mit den falschen Begriffen), hoffe ich, Ihr könnt mir helfen!

Problemstellung : 1 Excel Arbeitsblatt mit 2 Kalendern!
- Kalender 1 ist eine Jahresübersicht horizontal mit den Monaten als Spalten und einem Textfeld zu jedem Tag im Monat.
- Kalender 2 ist Senkrecht mit 365 Tagen, Arbeitszeitberechnung, Überstunden Berechnung und 3 weiteren Textspalten für z.b. Jobnummer, Kunde und
Tätigkeit.

Jetzt zu meiner Frage : Wenn ich im senkrechten Kalender beim Tag (nehmen wir den 1.1. als Beispiel) in der entsprechenden Jobnummernzelle eine Zahl eintrage, erscheint
diese Zahl dann im horizontalen Kalender im Textfeld zum 1.1.! Soweit so gut!

Ist es möglich, das beide Kalender in Wechselwirkung miteinander arbeiten!? Wenn ich zum Beispiel im Textfeld zum 3.1 im horizontalen Kalender
einen Wert eingebe, das dieser dann auch im Senkrechten Kalender auftaucht, ich dann aber z.b. den 3.1. im senkrechten Kalender wieder ändere
und diese Änderung dann auch im horizontalen Kalender auftaucht!?

Ich bedanke mich schon mal im Vorraus und wünsche einen angenehmen Abend!

Gruß Andy
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen in Wechselwirkung!?
11.09.2024 00:32:27
Onur
Ja, mit VBA.
AW: Zellen in Wechselwirkung!?
11.09.2024 06:59:23
MCO
Moin!

Was Onur sagen will:
Ohne Beispielmappe kann man das nur pauschal beantworten. Und die Antwort ist kurz.

Nachbauen wird nicht gern gemacht, daher macht es eine Antwort wahrscheinlicher und genauer, wenn eine Mappe vorhanden ist.

Probier es mal aus....
https://www.herber.de/bbs/user/172158.xlsm

Private Sub Worksheet_Change(ByVal Target As Range)


Dim Suchrange As Range
Dim gef As Range

If IsDate(Target.Offset(, -1)) And Target > "" Then
such_dat = Target.Offset(, -1)

If Target.Column = 2 Then
Set Suchrange = Range("C:Z")
Else
Set Suchrange = Range("A:A")
End If

Set gef = Suchrange.Find(what:=such_dat, LookIn:=xlValues, lookat:=xlWhole)
End If

If Not gef Is Nothiag Then
Application.EnableEvents = False
gef.Offset(0, 1) = Target.Value
Application.EnableEvents = True
Else
MsgBox such_dat & " wurde nicht gefunden", vbCritical + vbOKOnly, "Fehler"
End If

End Sub


Gruß, MCO
Anzeige
AW: Zellen in Wechselwirkung!?
11.09.2024 09:12:00
daniel
Hi
in Excel: nein
In Excel musst du sauber trennen:
1. in die Tabelle, in welche die Eingabe der Daten erfolgt
2. in die Auswertetabelle, welche die Werte aus der Eingabetabelle in geänderter oder zusammengefasster Form darstellt.
dass in einer Tabelle Auswertung und Dateneingabe (der selben Daten, hier Kalendereinträge) gemischt werden ist in Excel und seiner Formelbasierten Grundstruktur nicht möglich.
Mit VBA könnte man sich sowas programmieren.
Ansonsten müsste man auf andere Programme ausweichen (als Datenbank ACCESS, oder gleich eine Kalenderanwendung)

Gruß Daniel
Anzeige
AW: Zellen in Wechselwirkung!?
11.09.2024 12:52:09
Yal
Hallo Andy,

eine lustige Spielerei.

Ich habe die Listen in Tabellen umgewandelt (Menü "Einfügen", "Tabelle") und die Namen "tblMonatsKal" und "tblTagesKal" vergeben. Es erlaubt in VBA auf die Eigenschaften der Tabelle zurückzugreifen, was der Code leichter macht (nun ja... wie man's mag :-)

https://www.herber.de/bbs/user/172162.xlsm

Es funktioniert, aber es wird nicht geprüft, ob ein Datum im Monatskalender existiert, z.B. 31. Februar.

VG
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige