mit nachstehenden Makro erstelle ich eine Steuerelement in der Spalte K ab der Zeile 2.
Option Explicit
Sub Test()
Dim ZielAdress As Range
For Each ZielAdress In Range("A2", Cells(Rows.Count, 1).End(xlUp))
ErstelleButton (ZielAdress.Offset(0, 10).Address)
Next
End Sub
Sub ErstelleButton(ByVal strZelle As String)
Dim Zelle As Range
Dim myCBX As Variant
Dim verw As String
Set Zelle = Range(strZelle)
'verw = Range("A2") & Cells(Zelle.Row, 1) & Zeile_loeschen ?
Set myCBX = ActiveSheet.Buttons.Add(1, 1, 1, 1)
With myCBX
.Top = Zelle.Top
.Left = Zelle.Left
.Height = Zelle.RowHeight
.Width = Zelle.Width
.Name = "Karte" & Zelle.Row
.OnAction = "Zeile_loeschen" '? Rows.Delete ?
.Characters.Text = "Loeschen"
With .Font
.Name = "Arial"
.Size = 10
.ColorIndex = 5
End With
End With
End Sub
Ich möchte als OnAction erreichen, dass die Zeile gelöscht wird in der sich das Steuerelement befindet und vorher noch der Wert aus der Spalte B dieser Zeile in einer TXT Datei gespeichert wird. Habe mal Fragezeichen gesetzt wo ich denke, dass dort etwas eingearbeitet werden sollte.
Jetzt realisiere ich es über siehe nachfolgende Makros:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Me.Range("B2:B65000")) Is Nothing Then Exit Sub
If ActiveCell.Offset = "" Then Exit Sub
Verladen
Cancel = True
Rows(ActiveCell.Row).Delete
End Sub
Sub Verladen()
Dim strFileName As String
strFileName = ActiveCell & ".txt"
Open "C:\Test\" & strFileName For Output Lock Read Write As #1
Print #1, ActiveCell.Offset(0, 0)
Close #1
End Sub
Ich hoffe mir kann jemand einen Tipp geben.
Vielen Dank im voraus!
MFG Andre