Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 08:08:11 Felix
Solved
10.10.2019 08:41:15 Gast69668
NotSolved
10.10.2019 08:54:18 Gast68282
NotSolved
10.10.2019 10:25:20 Mase
NotSolved
10.10.2019 10:42:56 Gast91557
NotSolved
10.10.2019 10:50:31 Werner
NotSolved
10.10.2019 10:59:21 Gast31683
NotSolved
10.10.2019 10:59:34 Mase
NotSolved
10.10.2019 11:06:16 Gast46342
NotSolved
10.10.2019 11:27:32 Mase
NotSolved
10.10.2019 11:31:58 Gast85189
NotSolved
Blau MessageBox für erste freie Spalte
 10.10.2019 12:13:03 Mase
NotSolved
10.10.2019 12:33:27 Gast61997
NotSolved
10.10.2019 12:52:30 Mase
NotSolved
10.10.2019 12:35:14 Werner
*****
NotSolved
10.10.2019 12:40:06 Gast21896
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
10.10.2019 12:13:03		 Views:
480		 Rating:
     
Antwort:
  Ja
Thema:
MessageBox für erste freie Spalte

Hm, mal sehen, ob eine Quick n Dirty-Code die Lösung bringt:

Sub modMsgboxFreeCellInRange()
    Dim rng As Range, c As Range, rngFound As Range
    Dim lngCol As Long, lngHasFormulaCounter As Long, lngPossibleColumn As Long
    '
    With ActiveSheet
        Set rng = Range("I711:NO760")
    End With
    '
    For lng = 1 To rng.Columns.Count Step 1
        Set rngFound = rng.Columns(lng)
        If Application.WorksheetFunction.CountIf(rngFound, "") = rngFound.Cells.Count Then
        '
        lngHasFormulaCounter = 0
        lngPossibleColumn = 0
        For Each c In rngFound
            If c.HasFormula = True Then
                lngHasFormulaCounter = lngHasFormulaCounter + 1
            Else
                lngPossibleColumn = c.Column
            End If
        Next
        '
        If lngHasFormulaCounter = 0 Then
            MsgBox lngPossibleColumn
            Exit For
        End If
        '
        End If
    Next
    '
    Set c = Nothing: Set rng = Nothing: Set rngFound = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.10.2019 08:08:11 Felix
Solved
10.10.2019 08:41:15 Gast69668
NotSolved
10.10.2019 08:54:18 Gast68282
NotSolved
10.10.2019 10:25:20 Mase
NotSolved
10.10.2019 10:42:56 Gast91557
NotSolved
10.10.2019 10:50:31 Werner
NotSolved
10.10.2019 10:59:21 Gast31683
NotSolved
10.10.2019 10:59:34 Mase
NotSolved
10.10.2019 11:06:16 Gast46342
NotSolved
10.10.2019 11:27:32 Mase
NotSolved
10.10.2019 11:31:58 Gast85189
NotSolved
Blau MessageBox für erste freie Spalte
 10.10.2019 12:13:03 Mase
NotSolved
10.10.2019 12:33:27 Gast61997
NotSolved
10.10.2019 12:52:30 Mase
NotSolved
10.10.2019 12:35:14 Werner
*****
NotSolved
10.10.2019 12:40:06 Gast21896
NotSolved