Benutzung von Kontrollkästchen

Hallo,
ich bin gerade dabei mir VBA mit Excel näher zu bringen und mich in Welt des Programmierens zu versuchen. Ich habe viele Seiten nach Informationen durchsucht und das Forum nach Lösungsansätzen durchsucht. Leider hat jeder seinen eigenen Stil und auch seine eigene Auffassung von einem Problem. Mit dem Versuch aus den verschiedenen Lsg. etwas zu entnehmen und daraus etwas zusammen zubasteln war nicht von Erfolg gekrönt.So kam der Entschluss, endlich mit den Grundlagen für VBA anzufangen und eigene Projekte von der Pike auf zu basteln. Zu meinem Problem:
Ich habe 235 verschiedene Zeilen, welchen einen String beinhalten. Angefangen bei A101,A102..A999.Diese sind auf dem letzten Tabellenblatt vermerkt. Hier habe ich hinter den Zellen (A101,A413 etc) ein Kontrollkästchen platziert. Sobald ich das Häkchen setze, soll der String auf dem ersten Tabellenblatt1 in der Spalte A Zeile 2 eingefügt werden. Wird das nächste Häkchen gesetzt, soll das Makro selbstständig den Wert von TB3 unter dem ersten Wert von TB1 eintragen. A101, darunter z.B. A413, je nachdem was ausgewählt wurde. Vorher muss immer die Zelle untersucht werden ob Sie leer ist.
IsEmpty hat laut Excel-Hilfe immer den Wert True oder False. Leider habe ich noch keine passende Abbruchbedingung realisieren können.
Folgenden Code habe ich soweit alleine erstellt.

Sub Aggregate3()
ThisWorkbook.Worksheets("Tabelle1").Activate Dim i As Integer Zeile5: For i = 2 To 9 '7 Zellen zum testen des Codes statt der 235 If IsEmpty(Cells(i, 1)) Then 'erst soll die untersucht werden ob Zelle leer ist Worksheets("Tabelle3").Range("A2").Copy Destination:=ThisWorkbook.Worksheets("Tabelle1"). _ Cells(i, 1) If i > 0 Then i = i + 1'wenn Zelle nicht leer, dann eine Zelle weiter End If If i > 0 Then Exit For 'wenn Wert kopiert wurde For beenden MsgBox "klappt" Next i End Sub Ihr werdet vielleicht sagen, das es viel zu Umständlich ist für alle 235 Zeilen ein Kästchen _ anzulegen und diese mit einem eigenem Makro zu belegen. Für Hinweise und Tipps über einen _ leichteren Weg bin ich natürlich offen! Viele Grüße Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' wenn mehr als eine Zelle markiert wird nichts tun If Target.Count > 1 Then Exit Sub 'Code im entsprechenden Tabellenblatt einfügen wo die Daten liegen 'mit Intersect + Range("A1:A235") kann man den Bereich begrenzen wo das Makro startet If Not Application.Intersect(Target, Range("A1:A235")) Is Nothing Then 'events ausschalten damit es nicht in einer Endlosschleife endet Application.EnableEvents = False 'mit Blatt 1 (damit der Folgecode nicht zu lang wird) With ThisWorkbook.Worksheets("Tabelle1") If .Range("A2") = "" Then .Range("A2") = Target 'Wenn A2 leer ist Else If .Range("A3") = "" Then .Range("A3") = Target 'wenn A3 leer ist Else ' ansonsten von A2 runter bis zur letzten befüllten Zelle + 1 Zeile .Cells(.Range("A2").End(xlDown).Row + 1, 1) = Target End If End If End With 'Events wieder einschalten 'bricht der Code früher ab das einschalten in einem separaten sub manuell ausführen Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Benutzung von Kontrollkästchen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread