Office: VBA Ja nein Abfrage mit Ausgabe

Hallo zusammen,

Ich versuche grade eine Tabelle für den Dienstplan meiner Fahrer einzurichten und bräuchte da hilfe.
Ich habe 2 Tabellen die eine Tabelle gibt die Planung an und die 2te Tabelle sagt welcher Fahrer dann wirklich gefahren ist.
Wie kann man jetzt eine Ja nein Abfrage einbauen die fragt ob die eingeplanten Fahrer tatsächlich gefahren sind und am Ende wenn ja eingetragen wird kreuzt es in der anderen Tabelle die Tage an denen die Fahrer gefahren sind.
Vielen Dank schon im Vorraus.

 

Teil 1 mit Datewn, Gültigkeit

Tabelle2

	J
1
2
3
4
5
6

Daten, Gültigkeit

Zelle

Zulassen

Daten

Wert1

Wert2

Leere Zellen ignorieren

Zellendropdown

Titel Eingabe-meldung

Eingabe-meldung

Titel Fehler

Fehler-meldung

Typ Fehler-meldung

Fehler- meldung anzeigen

Eingabe- meldung anzeigen

J1:J6

Liste

Ja;Nein

Wahr

Wahr

Stopp

Wahr

Wahr

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

Add-In-Version 25.23 einschl. 64 Bit

XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle

Teil 2 mit VBA.

 

Teil 2

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then
        With Worksheets("Tabelle1").Range(Target.Address)
            If UCase(Target) = "JA" Then
                With .Borders(xlDiagonalDown)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .TintAndShade = 0
                    .Weight = xlThin
                End With
                With .Borders(xlDiagonalUp)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .TintAndShade = 0
                    .Weight = xlThin
                End With
            Else
                .Borders(xlDiagonalDown).LineStyle = xlNone
                .Borders(xlDiagonalUp).LineStyle = xlNone
            End If
        End With
    End If
End Sub

<a href="Homeseite - Hajo's Excelseiten" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

Erstmal vielen Dank, ich habe leider nicht verstanden in wie fern ich meine beiden Tabellen mit einander verbinden kann.

 

Gut Du hast Extra keine Dateien verlinkt, da Du dier Lösung selber vanb Deine Bedingungfen anpassen wolltesrt.
Also macxhe es.
In meiner Datei geht es.
Ich bin dann raus, da Lösung erstellt.

Gruß Hajo