Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalte löschen, wenn in der Zeile 24 bestimmter Te

Spalte löschen, wenn in der Zeile 24 bestimmter Te
16.02.2017 16:24:14
Sergej
Hallo Leute,
ich möchte in der Zeile 24 nach dem Zellinhalt "Daten" suchen und diese Spalte löschen?
Wie mache ich das bitte per VBA?
Viele Grüße,
Sergej
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte löschen, wenn in der Zeile 24 bestimmter Te
16.02.2017 16:35:42
Werner
Hallo Sergej,
Public Sub Spalte_löschen()
Dim rngFund As Range
With Sheets("Tabelle1") 'Tabelle anpassen
Set rngFund = .Rows(24).Find(what:="Daten", LookIn:=xlValues, lookat:=xlWhole)
If Not rngFund Is Nothing Then
rngFund.EntireColumn.Delete
Else
MsgBox "Suchbegriff in Zeile 24 nicht gefunden."
End If
End With
End Sub
Gruß Werner
Anzeige
AW: Spalte löschen, wenn in der Zeile 24 bestimmter Te
16.02.2017 18:08:25
Sergej
Perfekt - es funktioniert...
Wie kann ich mir in einer MsgBox ausgeben lassen, in welche Spalte der Text "Daten" der Zeile 24 gefunden wurde?
Gruß,
Sergej
AW: Spalte löschen, wenn in der Zeile 24 bestimmter Te
16.02.2017 18:38:13
Werner
Hallo Sergej,
Public Sub Spalte_löschen()
Dim rngFund As Range
With Sheets("Tabelle1")
Set rngFund = .Rows(24).Find(what:="Daten", LookIn:=xlValues, lookat:=xlWhole)
If Not rngFund Is Nothing Then
MsgBox "gefunden in Spalte  " _
& Replace(rngFund.Address(0, 0), "24", "")
rngFund.EntireColumn.Delete
Else
MsgBox "Suchbegriff in Zeile 24 nicht gefunden."
End If
End With
End Sub
Gruß Werner
Anzeige
AW: Spalte löschen, wenn in der Zeile 24 bestimmter Te
17.02.2017 09:13:55
Sergej
Danke!
Gerne u. Danke für die Rückmeldung. o.w.T.
17.02.2017 09:21:26
Werner
AW: Spalte löschen, wenn in der Zeile 24 bestimmt
16.02.2017 17:17:26
Daniel
HI
wenn in der Zeile 24 feste Werte stehen und keine Formeln:
With Rows(24)
.Replace "Daten", true
.SpecialCells(xlcelltypeconstants, 4).EntireColumn.Delete
End with
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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