Office: Excel 2010, Checkboxen per Übernehmenbutton zu einer Zelle hinzufügen (Feuerwehr)

Hallo Excel-Gemeinde,

ich komm einfach nicht weiter. Ein ehrenamtlicher Helfer bitten um HILFE ;-)
Ich muss eine Einsatzkräfteübersicht mit eingesetzten Kräften (Feuerwehr) in Excel darstellen.

Feuerwehr 1 [x]
Feuerwehr 2 [ ]
Feuerwehr 3 [ ]
Feuerwehr 4 [x]
Feuerwehr 5 [ ]
Feuerwehr 6 [x] übernehmen

Funktion:
Mit Hilfe von Checkboxen lassen sich die Wehren je nach Einsatzlage auswählen (Beispiel ausgewählte Wehren 1,4,6). Mit dem Übernehmenbutton werden diese Feuerwehrnamen in eine vorher markierte Zelle kopiert, jeweils mit einem Komma getrennt.
Also... in z.B. Zelle A1 steht jetzt Feuerwehr 1, Feuerwehr 4, Feuerwehr 6
Und die Checkboxen müssen nach dem "Übernehmen" klicken automatisch wieder gelöscht werden.

Dann klick ich z.B. auf die Zelle A3 und jetzt wieder die Wehren (2, 5,) nach "Übernehmen" steht dann also in der Zelle A3...Feuerwehr 2, Feuerwehr 5

und so weiter.

Ich hoffe ihr könnt mir helfen. Ich bedanke mich schon mal im Voraus für Eure Mühen.
Gruss Micha

 

Ich schau mir das mal an und melde mich bei Dir.

Gruß
Michael

 

Danke schön....ich hoffe, ich hab das Vorhaben einigermaßen gut erklärt.

Gruss
Micha <-- der Andere :-)

 

Also ich glaube zumindest dass ich es verstanden habe ;-)
Schau Dir mal das Beispiel an, das ich schnell zusammen geklöppelt habe.

Vorsicht: Bitte nicht einfach Zellen verschieben, das killt das Makro. Du wählst die Feuerwehren aus, die Du brauchst und setzt dann den Cursor in die gewünschte Zelle. Dann klickst Du auf den Button und Excel macht den Rest.

Vorschlag: Schau Dir an ob das so ist wie Du es brauchst und wenn ich noch Zellen verschieben soll, oder noch weitere Feuerwehren zur Sicherheit einbauen soll melde Dich.

VG
Michael

 

Genauso hatte ich mir das gedacht. Könntest Du mir jetzt noch verraten, wie ich aus "Feuerwehr 1" jetzt z.B. Feuerwehr Vechelde ändern kann? Und wie ich dort mehr einfügen kann? Ich brauche 50 Wehren, bzw. Wehren mit der Ortsbeschreibung und Fahrzeugnamen.

 

Ich habe das Makro jetzt gefunden und habe nun alle Wehren eingefügt, bzw. das Makro so wie vorgegeben erweitert.
Also diese Zeilen hier habe ich erweitert...

If Range("A17") = "Wahr" Then
Feuerwehren = Feuerwehren & "FF-xyz, "
End If

und diese hier....

ActiveSheet.CheckBoxes("FF-xyz").Value = False

Ich habe die Checkboxen platziert (kopiert) und denn Zellenbezug angepasst. Doch jetzt gibt es noch folgendes Problem.
Sobald ich die Checkboxen auswähle und dann auf übernehmen klicke, erscheint immer die

Fehlermeldung --> "Laufzeitfehler 1004, Die CheckBoxes-Eigenschaften des Worksheet-Objektes kann nicht zugeordnet werden.

Wenn ich auf Debuggen klicke, spring er automatisch auf die Zeile --> ActiveSheet.CheckBoxes("FF-xyz").Value = False
Ich muss dazu sagen, die Ortsnamen besitzen Ä,Ü,Ö....ist das schlimm? Oder darf es im Makro kein Ä,Ü,Ö geben?

Gruss
Micha

 

Lad Deine Datei mal hoch, dann schau ich es mir an.

 

Hi Micha,

ich würde es so lösen:

Code:

Sub Uebernehmen()
   Dim chkElement As CheckBox
   Dim strErgebnis
   ActiveCell.ClearContents
   For Each chkElement In ActiveSheet.CheckBoxes
      If chkElement.Value = 1 Then strErgebnis = strErgebnis & "," & chkElement.Caption
   Next chkElement
   ActiveCell = Mid(strErgebnis, 2)
End Sub

Bis später,
Karin

 

Hallo Micha,

ich würde zusätzlich zum Makro von Beverly einen 2. Button ins Arbeitsblatt aufnehmen, der das Rücksetzen der Checkboxes durchführt
mit folgendem Code:

Code:

Sub ZurueckSetzen()
  Dim chkElement As Checkbox
  For Each chkElement In ActiveSheet.CheckBoxes
    chkElement.Value = 0
  Next chkElement
End Sub

Das Trennen dieser beiden Makros hat folgenden Vorteil: Falls Du beim Anhaken der Checkboxes irgendwo einen Haken vergessen hast, kannst Du ihn durch Klicken des 1. Buttons noch bequem nachtragen, ohne wieder noch einmal die ganze Hakenliste setzen zu müssen.
Erst wenn Du mit der erzeugten Liste zufrieden bist, kannst Du die Chekboxes mit dem 2. Button/Makro zurücksetzen.

 

Hi zusammen,

danke für die viele Hilfe, doch ich habe gerade festgestellt, dass auf dem Einsatzlaptop keine Makros funktionieren.
Entweder ist dies deaktiviert oder es ist kein VBA drauf installiert. Ich weiß es nicht. :-(

Jetzt muss ich mir was anderes einfallen lassen. Trotzdem danke für Eure Hilfe.
Ich werde die zwei Button-Variante mal ausprobieren.

Gruss Micha

 

Hi Micha,

VBA ist immer mit installiert, wenn Excel installiert ist. Wenn keine Makros funktionieren, dann musst du die Makrosicherheit auf Mittel (nicht auf Niedrig!!) einstellen.

Bis später,
Karin