Office: (Office 2013) Hilfe bei Kontrollkästchen (Zellzuordnung) kopieren mit Anpassung (Kundenliste)

Hallo zusammen,

ich bin noch ganz neu hier habe aber gleich ein Problem wo ich eure Hilfe benötige.

Ich bin ein Excel Leihe und habe bislang ganz einfache Tabellen erstellt. Da ich im Aussendiest tätig bin, erstelle ich gerade eine Kundenliste mit eine Tel/Besuchs Nachverfolgung.

Ausgangslage:

Kundenliste als Übersichtstabelle für jeden Kunden (1 Kunde je Spallte) dahinter einzelne Zellen Jan-Dez jeweils eine für Tel und Besuch.
am Ende eine Verlinkung auf eine Registertabelle (für diesen Kunden) Dort wieder eine Tabelle Jan-Dez und in jeder Monatsspalte 2 Kontrollkästchen Besuch / Tel (kein ActiveX)
Diese Kontrollk. haben eine Zellverknüpfung mit der Übersichtstabelle. Somit erscheint bei Kunde1 bei Jan-Dez jeweils ein Ja/Nein. Je nach gesetzten Kästchen in der Übersicht.
Das funktioniert prima. War schon eine Doktorarbeit für mich ;)


Problem:
Ich muss die Registertabelle nun für 120 Kunden machen. Habe versucht diese zu kopieren. Dieses hat auch geklappt, allerdings wird die Zellverknüpfung der Kontrollkästchen immer auf Kunde 1 kopiert. Wenn ich nun alle Zellvernküpfungen löschen muss und je Kunde anlegen muss, dann sind das 2856 Stk

Könnt Ihr mir helfen das irgendwie zu automatisieren?

Grüße
Chris

 

Hallo Chris,

hast Du eine Beispieldatei?

Gruß,
Lutz

 

Leider nur als Foto da ich es als datei nicht hochgeladen bekomme.(1,77mb)

 

Hola,

eine Beispieldatei hat niemals 1,77mb. Also verkleinern.

Gruß,
steve1da

 

Hallo Steve,

ich weis gerade nicht wie. Benötige ein wenig Aufklärung. Habe versucht die fotografierte Mappe hoch zu laden aber wie geschrieben ist die zu groß.

 

Einfach nur 2 der Kundenblätter und die Kundenkontaktdetails.

 

Hola,

na du erstellst eine Beispieldatei die den Aufbau des Originals hat, jedoch einen Bruchteil der Daten.

Gruß,
steve1da

 

So hoffentlich richtig

 

Schon mal super.
Jetzt nochmal mit Formeln im Blatt Übersicht ;-).

 

Die Übersicht hat außer ein paar Hyperlinks (vernüpft auf Tabelle Kunde1-...) keine Formeln. Außer die Änderung auf Ja/Nein in der Formatierung.
Es geht um die Tabelle Kunde1. Diese muss ich 120x (Kunde 1-120) kopieren. Und dort geht es um die Zellverknüpfung der Kotrollkästchen. Diese bleiben mit der Wahr/Falsch Aussage immer auf Übersicht B4-E4. Bei der Masse an Kunden Tabellen müsste ich alles händisch verknüpfen (24x je Tabelle x 120Kunden Tabellen).

Die Zuordnung Wahr/Falsch der Tabellen soll wie folgt sein

Kunde1 -> Übersicht B4-E4
Kunde2 _> Übersicht B5-E5
Kunde3 -> Übersicht B6-E6

Ich hoffe ich habe es verständlich erklärt als Leihe.
Eventuell etwas machbar mit Formel in VBA?

 

Kann mir den keiner helfen?[emoji15]

 

Hallo Chris,

das Grundgerüst ist kein Problem.
Ich selbst habe aber ein Problem beim Kernstück: Ich bekomme keine Zellzuordnung hin. Ich habe gestern aus Neugier selbst in diversen Foren gesucht, aber nichts gefunden, was bei mir funktioniert.

Aber ich hab mal als Diskussionsgrundlage einige Versuche:

Code:

    For Kaestchen = 1 To ActiveSheet.Shapes.Count
        
        Set rngLinkedCell = Uebersicht.Cells(Zeile, Kaestchen + 1)
        Set ActKaest = ActiveSheet.Shapes.Range(Array("Check Box " & Kaestchen))
        ActKaest.LinkedCell = rngLinkedCell.Address(True, True, xlA1, True)

'   with ActiveSheet.Shapes.Range(Array("Check Box " & Kaestchen))
'            .LinkedCell = "Übersicht!$D$6"

'            .LinkedCell = Sheets("Übersicht").Cells(Zeile, Kaestchen + 1).Address
'            .LinkedCell = Adress(Zeile, Kaestchen + 1, 1, True, "Übersicht")
'   End With
    Next Kaestchen

Gruß,
Lutz

 

Hallo Lutz,

wenn ich den Code als Modul ausführen will, fragt er mich nach einem Makronamen?
Alternativ kann ich an der Kundentabelle ja noch arbeiten! Eventuell die Kontrollkästchen am Ende in zwei einzelne Zellen einfügen oder Untereinander?
Und die Kontrollkästchen als ActiveX wenns hilft?
Noch habe ich die Chance. Ansonsten muss ich wohl oder übel alles händisch machen :-(

 

Hi Chris,

das sollte mit folgendem Makor machbar sein:

Code:

Sub VerknuepfungAendern()
    Dim chkBox As CheckBox
    Dim wksTab As Worksheet
    For Each wksTab In Worksheets
        For Each chkBox In wksTab.CheckBoxes
            chkBox.LinkedCell = Application.Substitute(chkBox.LinkedCell, "Übersicht!", "")
        Next chkBox
    Next wksTab
End Sub

Bis später,
Karin