Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalte löschen - Spalte per MsgBox angeben

Spalte löschen - Spalte per MsgBox angeben
12.01.2007 12:51:23
Anton
Hallo Leute,
wie muss ich meinen Code gestalten, daß ich die zu löschenden Spalten
per MsgBox angeben kann.
WkSh_G.Columns("A:B").Delete 'löscht ja immer nur Spalte A bis B
Mein Ziel wäre so etwas:
WkSh_G.Columns(EINGABE1,EINGABE2).Delete
So könnte ich Bedarfsfall die Spaltenangabe auch per VBA verändern lassen.
Wer von Euch kann mir da weiterhelfen?
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte löschen - Spalte per MsgBox angeben
12.01.2007 13:05:16
Harald
Hallo Anton,
hier ein Vorschlag

Sub test()
Dim bereich As String
On Error GoTo ende
bereich = InputBox("Geben sie die zu löschenden Spalten an" & Chr(10) & _
"z.B. A:F , d:g , c", "Abfrage")
If bereich <> "" Then
Columns(bereich).Delete
End If
ende:
If Err.Number > 0 Then MsgBox Err.Description
End Sub

Gruss Harald
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige