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
10.10.2019 12:13:03 Mase
NotSolved
10.10.2019 12:33:27 Gast61997
NotSolved
10.10.2019 12:52:30 Mase
NotSolved
Rot MessageBox für erste freie Spalte
 10.10.2019 12:35:14 Werner
*****
NotSolved
10.10.2019 12:40:06 Gast21896
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
10.10.2019 12:35:14		 Views:
475		 Rating:
     
Antwort:
  Ja
Thema:
MessageBox für erste freie Spalte

Hallo,

meine Lösung:

Sub Erste_freie_Spalte()
Dim i As Long, rngFund As Range, boFrei As Boolean

With Worksheets("Tabelle1")
    For i = 9 To 379
        Set rngFund = .Columns(i).Find(what:="*", after:=.Cells(761, i), LookIn:=xlValues, _
        lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
        If Not rngFund Is Nothing Then
            If rngFund.Row < 711 Then
                boFrei = True
                'als Spaltenbuchstabe
                MsgBox "Erste komplett freie Spalte ist Spalte " & Split(rngFund.Address, "$")(1)
                'oder als Spaltenzahl
                MsgBox "Erste kompellt freie Spalte ist Spalte " & rngFund.Column
                Exit For
            End If
        End If
    Next i
End With

If Not boFrei Then
    MsgBox "Es gibt keine komplett leere Spalte im Bereich I711:NO760"
End If

Set rngFund = Nothing
End Sub

 

Voraussetzung: Oberhalb von Zeile 711 muss zwingend durchgehend von Spalte I bis Spalte NO in irgendeiner Zeile der jeweiligen Spalte ein Wert vorhanden sein. Am besten in Zeile 710 der Spalten I bis NO eine Überschrift eintragen (oder auch in der ersten Zeile).

 

Gruß Werner

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
10.10.2019 12:13:03 Mase
NotSolved
10.10.2019 12:33:27 Gast61997
NotSolved
10.10.2019 12:52:30 Mase
NotSolved
Rot MessageBox für erste freie Spalte
 10.10.2019 12:35:14 Werner
*****
NotSolved
10.10.2019 12:40:06 Gast21896
NotSolved