Spalte löschen

Forumthread: Spalte löschen
8 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Spalte löschen

Spalte löschen

30.10.2018 17: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

AW: Spalte löschen

30.10.2018 17:29:41

Hajo_Zi
AW: Spalte löschen

30.10.2018 17:34:51

Werner
Danke Hajo und Werner beide i.o. ! -)

30.10.2018 19:35:11

klaus
Gerne u. Danke für die Rückmeldung. o.w.T.

30.10.2018 19:52:35

Werner
Bitte nochmals sorry

30.10.2018 19:54:32

klaus
AW: Bitte nochmals sorry

30.10.2018 20:00:27

Werner
Klasse, danke Werner ! --))

30.10.2018 20:13:39

klaus
Gerne u. Danke für die Rückmeldung. o.w.T.

30.10.2018 20:14:04

Werner

AW: Spalte löschen

30.10.2018 17: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 17: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

Danke Hajo und Werner beide i.o. ! -)

30.10.2018 19:35:11

klaus

Gerne u. Danke für die Rückmeldung. o.w.T.

30.10.2018 19:52:35

Werner

Bitte nochmals sorry

30.10.2018 19: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 20: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

Klasse, danke Werner ! --))

30.10.2018 20:13:39

klaus

Gerne u. Danke für die Rückmeldung. o.w.T.

30.10.2018 20:14:04

Werner