Thema Datum  Von Nutzer Rating
Antwort
21.11.2017 11:17:26 Hadonis
NotSolved
21.11.2017 17:18:02 Mackie
NotSolved
Rot 4Mackie
 21.11.2017 17:45:09 Gast30885
NotSolved
21.11.2017 19:16:29 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast30885		 Datum:
21.11.2017 17:45:09		 Views:
566		 Rating:
     
Antwort:
  Ja
Thema:
4Mackie

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

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

 

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

Thema Datum  Von Nutzer Rating
Antwort
21.11.2017 11:17:26 Hadonis
NotSolved
21.11.2017 17:18:02 Mackie
NotSolved
Rot 4Mackie
 21.11.2017 17:45:09 Gast30885
NotSolved
21.11.2017 19:16:29 Mackie
NotSolved