Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkbox zelle Kopieren

Checkbox zelle Kopieren
Partick
Hallo Experten
Ich habe folgendes Excelsheet. Und würde gern jeweil aus der Spalte D und I jeweils den Text den ich mit der Checkbox markiert habe, in das Sheet auswertung kopieren in die nächste freie Zelle.
Und wenn ich die Checkbox abwähle soll er wieder draussen sein.
Kann mir bitte jemand helfen ich bin nun schon ne Woche dran und bekomm das einfach nicht hin.
Lieber Gruss Patrick
https://www.herber.de/bbs/user/81222.zip

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Checkbox zelle Kopieren
31.07.2012 16:54:41
Rudi
Hallo,
in den Code des Blatts (Schritt1) 
Private Sub CheckBox1_Click()
prcText Me.CheckBox1
End Sub
Private Sub CheckBox2_Click()
prcText Me.CheckBox2
End Sub
Für die anderen Checkboxen analog.
In ein Modul: 
Sub prcText(objChk As Object)
Dim lngRow
Select Case objChk
Case True
With Sheets("Auswertung")
lngRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngRow, 1) = objChk.TopLeftCell.Offset(, -6)
.Cells(lngRow, 2) = objChk.TopLeftCell.Offset(, -1)
With .Cells(lngRow, 5)
.Value = objChk.Parent.Name & objChk.Name
.NumberFormat = ";;;"
End With
End With
Case Else
With Sheets("Auswertung")
lngRow = Application.Match(objChk.Parent.Name & objChk.Name, .Columns(5), 0)
If Not IsError(lngRow) Then .Rows(lngRow).Delete
End With
End Select
End Sub
Gruß
Rudi
Anzeige
AW: Checkbox zelle Kopieren
31.07.2012 18:26:23
Patrick
He Danke dir Ruedi
Das ist ja super. Ich dachte zwar das es möglich sein muss ohne jeden Button zu erfassen aber das ist ja kein Riesenaufwand. Also werde ich es so machen.
Nochmals Herzlichen Dank
Gruss Patrick
AW: Checkbox zelle Kopieren
31.07.2012 18:49:44
Rudi
Hallo Patrieck, ;-)
prinzipiell könnte man das über eine eigene Klasse erledigen. War mir aber zu viel Aufwand und ich wollte dich bei dem Kenntnisstand nicht auch noch damit belasten.
Gruß
Rudi ohne e
AW: Checkbox zelle Kopieren
02.08.2012 09:42:29
Patrick
Sorry Rudi wir schweizer schreiben den Ruedi viel so..
Klassen kannst du mir das ganz kurz erklären was das genau ist.
Danke noch mal funkt super
Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige