Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1652to1656
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
Inhaltsverzeichnis

Spalte löschen

Spalte löschen
30.10.2018 16:21:02
klaus
Hallo allerseits,
ich habe diese Zeile im Makro, hiermit wird meine gesuchte Zelle auch in der
Zeile 1 gefunden.
Ich möchte jedoch jetzt die aktive Spalte und die Spalte davor löschen.
Steht also meine aktive Zelle in L1 soll auch die Spalte K gelöscht werden.
ActiveSheet.Rows(1).Find(What:=nw, lookat:=xlWhole, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Activate
mfg klaus k

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte löschen
30.10.2018 16:29:41
Hajo_Zi
Hallo Klaus,
    Columns(ActiveCell.Column - 1).Delete
Columns(ActiveCell.Column - 1).Delete

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Spalte löschen
30.10.2018 16:34:51
Werner
Hallo Klaus,
so, mit Fehlerbehandlung, falls der Suchbegriff nicht vorhanden ist.
Dim raFund As Range
Set raFund = Rows(1).Find(What:=nw, lookat:=xlWhole, LookIn:=xlFormulas _
, SearchDirection:=xlPrevious)
If Not raFund Is Nothing Then
Range(Cells(raFund.Row, raFund.Column - 1), Cells(raFund.Row, raFund.Column)) _
.EntireColumn.Delete
End If
Gruß Werner
Anzeige
Danke Hajo und Werner beide i.o. ! -)
30.10.2018 18:35:11
klaus
Gerne u. Danke für die Rückmeldung. o.w.T.
30.10.2018 18:52:35
Werner
Bitte nochmals sorry
30.10.2018 18:54:32
klaus
Hallo zusammen,
ich habe mir dies zusammeengesetzt, klappt aber nicht.
If Not nw Is Nothing Then
ActiveSheet.Rows(1).Find(What:=nw, lookat:=xlWhole, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Activate
Else
MsgBox "Das gesuchte Angebot """ & nw & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
Wenn der Suchbegriff nicht vorhanden ist soll die Info kommen !
mfg klaus k
AW: Bitte nochmals sorry
30.10.2018 19:00:27
Werner
Hallo Klaus,
bei mir war da kein Activate, warum machst du das also wieder rein, das braucht kein Mensch.
Deklariere die Variable raFund als Range Variable und frag die ab.
Dim raFund As Range
Set raFund = Rows(1).Find(What:=nw, lookat:=xlWhole, LookIn:=xlFormulas _
, SearchDirection:=xlPrevious)
If Not raFund Is Nothing Then
Range(Cells(raFund.Row, raFund.Column - 1), Cells(raFund.Row, raFund.Column)) _
.EntireColumn.Delete
Else
MsgBox "Das gesuchte Angebot """ & nw & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
Gruß Werner
Anzeige
Klasse, danke Werner ! --))
30.10.2018 19:13:39
klaus
Gerne u. Danke für die Rückmeldung. o.w.T.
30.10.2018 19:14:04
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige