Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige