Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige