Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenauswahl abhängig von Variablen

Forumthread: Spaltenauswahl abhängig von Variablen

Spaltenauswahl abhängig von Variablen
Variablen
Hallo,
Ich will mit VBA eine Suchschleife durchlaufen lassen und eine Spalte mithilfe einer Variable auswählen. Ungefähr so: 
For a = 4 To 50
If Sheets("Modulkapazitäten").Cells(8, a).Value = "" Then
Columns(a & ":" & a).Select
Selection.Delete Shift:=xlToLeft
End If
Next

Leider bekomme ich die Auswahl der Spalte in Abhängigkeit von "a" nicht hin. Kann mir da jemand helfen?
Danke!
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spaltenauswahl abhängig von Variablen
19.03.2010 09:22:14
Variablen
Hallo Thomas,
For a = 50 To 4 step -1
If Sheets("Modulkapazitäten").Cells(8, a).Value = "" Then  Columns(a).Delete Shift:=xlToLeft
Next
Gruß,
xr8k2
AW: Spaltenauswahl abhängig von Variablen
19.03.2010 09:31:25
Variablen
Vielen Dank! Hat funktioniert!
AW: Spaltenauswahl abhängig von Variablen
19.03.2010 09:34:38
Variablen
Hallo,
meine Version hat etwas länger gedauert.
Sub Beispiel()
Dim A As Long, lngCol As Long
Dim iCalc As Integer

With Sheets("Modulkapazitäten")
    
    lngCol = .UsedRange.Cells(1, .UsedRange.Columns.Count).Column
    lngCol = Application.Min(50, lngCol)
    
    If Application.WorksheetFunction.CountIf(.Range(.Cells(8, 4), .Cells(8, lngCol)), "") > 0 Then
        iCalc = Application.Calculation
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        
            For A = lngCol To 4 Step -1
              If .Cells(8, A).Value = "" Then
                    .Columns(A).Delete Shift:=xlToLeft
              End If
            Next
        
        Application.Calculation = iCalc
        Application.ScreenUpdating = True
    
    End If

End With


End Sub
Gruß Tino
Anzeige
AW: Spaltenauswahl abhängig von Variablen
19.03.2010 10:05:49
Variablen
Vielen Dank für die Mühe!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige