Textbox
Karel
Wie bekommen ich der inhalt vom Textbox im Aktive zelle und nicht allein Range ("C15")
Modul:
Option Explicit
Private Sub CommandButton1_Click()
ActiveCell.Activate
With Sheets("Tabelle1").Range("C15")
.Value = TextBox1.Value
.Replace What:=Chr$(13), Replacement:=""
End With
Unload Me
End Sub
Tablleblat:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
'Case 7 ' entspricht Spalte G
'If Target.Row >= 28 And Target.Row = 5 Then Hans.Show
End Select
End Sub
Grüße
Karel
Anzeige