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

VBA löschen if Spaltenname

VBA löschen if Spaltenname
09.11.2004 13:20:38
Tom
Hilfe,
ich möchte per VBA alle Spalten löschen bis auf die Spalten mit Bezeichnung
Name, Anrede, email.
Leider komme ich nicht syntaktisch weiter, theoretisch denke ich so
Cells.Find(Whatsnot:="Name,Anrede,email").Activate
Columns(ActiveCell.Column).Delete
Bitte um Hilfe
Danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA löschen if Spaltenname
ChrisL
Hi Tom

Sub t()
Dim iSpalte As Integer
Application.ScreenUpdating = False
For iSpalte = 256 To 1 Step -1
If Cells(1, iSpalte) <> "Name" And _
Cells(1, iSpalte) <> "Vorname" And _
Cells(1, iSpalte) <> "email" Then _
Columns(iSpalte).Delete
Next iSpalte
Application.ScreenUpdating = True
End Sub

Gruss
Chris
AW: VBA löschen if Spaltenname
Reinhard
Hi Tom,
Option Explicit
Sub Makro2()
Dim n As Integer
For n = 1 To 256
If Cells(1, n) <> "Name" And Cells(1, n) <> "email" And Cells(1, n) <> "Anrede" Then
Columns(n).ClearContents
End If
Next n
End Sub
Gruß
Reinhard
Anzeige
AW: VBA löschen if Spaltenname
09.11.2004 16:29:19
Tom
Danke super klasse

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige