Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Lefty04 vom 28.02.2020, 12:38 Options

Makro - Spalte löschen

Hallo,

konnte leider nix finden, was mir in dem Fall weiterhilft.

Ich brauche ein Makro das, wenn ich in Zeile 2 ein X stehen habe, mir dann die Spalte in der es steht löscht.

Wer kann mir weiterhelfen?

Gruß Lefty

PS: das X wird durch eine Formel angezeigt, geht das dann überhaupt?

Antwort schreiben

Antwort 1 von Saarbauer vom 28.02.2020, 15:44 Options

hallo,

ohne genauere Kenntins deiner Formel für "x"

Sub Makro1()
For i = 1 To Columns.Count
    If Cells(2, i).Value = "x" Then
        Columns(i).Select
        Selection.Delete Shift:=xlToLeft
    End If
Next i
End Sub

Kann nach löschen der Spalte abstürzen

Gruß

Helmut

Antwort 2 von rainberg vom 28.02.2020, 16:12 OptionsLösung

Hallo Lefty,

ich würde es so machen.
Es werden nur so viele Spalten (von hinten) geprüft wie auch beschrieben, da kann nichts abstürzen. Auf Select kann man verzichten.

Option Explicit

Sub Makro1()
   Dim i As Integer
   For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
      If Cells(2, i).Value = "x" Then
         Columns(i).Delete Shift:=xlToLeft
      End If
   Next i
End Sub

Gruss
Rainer

Antwort 3 von Lefty04 vom 29.02.2020, 08:47 Options

Danke,

werde es testen!!!

Gruß Lefty

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken