VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Hadonis	Datum: 21.11.2017 11:17:26	Views: 1310	Rating:	Antwort:
Thema: CheckBox_Daten_übermitteln
Sub CheckBox_Daten_übermitteln() Dim chk As Checkbox Dim Target As Range Dim erste_leere_Zeile As Range Application.ScreenUpdating = False For Each chk In ActiveSheet.Checkboxes If ActiveSheet.chk.Value = True Then Set Target = chk.LinkedCell Union(Range(Cells(Target.Row, 9), Cells(Target.Row, 10)), Range(Cells(Target.Row, 11))).Copy 'Zeile kopieren erste_leere_Zeile = Worksheets("Meine Bestandsliste 1.FAN").End(xlUp).Row 'ermitteln der ersten leerne Zeile Worksheets("Meine Bestandsliste 1.FAN").Cells(erste_leere_Zeile, 1).PasteSpecial Paste:=xlValues 'kopierte Zeile einfügen End If Next chk 'erste_leere_Zeile.EntireRow.Insert Application.ScreenUpdating = True End Sub Hallo, ich bräuchte für den oberen Code Hilfe. Der Code soll alle Checkboxes (normales Formularsteuerelement) mit dem Wert = True ermitteln und die jeweilige Verbundene Zelle anvisieren. Im Anschluss sollen 3 Zellen aus der Zeile, von der anvisierten "Linked Cell" rauskopiert und in einem anderen Tabellenblatt, innerhalb der nächsten freien Zeile eingefügt. Nach Möglichkeit soll hierbei eine Neue Zeile eingefügt werden, damit die Formatierungen (Linien der Tabelle) ebenfalls mit übernommen werden. Ich würde mich freuen, wenn mir jemand sagen kann warum mein Code so nicht funktioniert. Liebe Grüße Hadonis

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen