Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte löschen

Forumthread: 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
Anzeige

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.
Anzeige
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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige