Spalte löschen nach Eingabe
20.04.2017 15:55:33
Nati
ich habe einen Button im Sheet, beim klicken auf den Button soll man auswählen können´, welche Spalte gelöscht( d.h ausgeblendet! werden soll.
Hintergrund: Die Spalten sind verschiedene Prozessschritte, man kann spalten(Prozesse bereits hinzufügen(einblenden). in der oberen Zeile benennt man den Prozess.
Beispiel: Härten,waschen etc...
bei dem "Remove" button soll man nun auswählen können welcher Prozessschritt gelöscht(ausgeblendet) werden soll.
Mein Ansatz: (lauffähig)
' Makro für Button, der je nach Spaltenangabe Prozess löscht
Public Sub DeleteProcess()
Dim ws As Worksheet
Dim lspalte As String
Set ws = ThisWorkbook.Worksheets("Calculation")
With ws
lspalte = Application.InputBox("Bitte geben Sie die zu Löschende Spalte an", _
"Spalte Löschen")
If lspalte = "" Then
Exit Sub
End If
'Spalten G und H dürfen nicht gelöscht werden
If lspalte = "G" Or lspalte = "g" Or lspalte = "H" Or lspalte = "h" Then
MsgBox "Not permissibly - please enter another column.", vbInformation + vbOKOnly, " _
Information"
Exit Sub
End If
'Or lspalte = "H"
.Range(lspalte & 1).EntireColumn.Delete
End With
End Sub
Bei dieser Variante müssen aber die Spalten angegeben werden, am Ende sollen aber die Spaltennamen ausgeblendet werden.Vor allem wird dabei die Spalte gelöscht, aber sie soll nur ausgeblendet werden.
Hätte jemand dazu einen Vorschlag?
Ich bin auch offen für neue Vorschläge; Hauptsache man kann auswählen welche Spalte (prozess) gelöscht werden soll und dabei soll die Spalte ausgeblendet werden.
LG Nathalie