Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.10.2019 08:08:11 |
Felix |
|
|
|
10.10.2019 08:41:15 |
Gast69668 |
|
|
|
10.10.2019 08:54:18 |
Gast68282 |
|
|
|
10.10.2019 10:25:20 |
Mase |
|
|
|
10.10.2019 10:42:56 |
Gast91557 |
|
|
|
10.10.2019 10:50:31 |
Werner |
|
|
|
10.10.2019 10:59:21 |
Gast31683 |
|
|
|
10.10.2019 10:59:34 |
Mase |
|
|
|
10.10.2019 11:06:16 |
Gast46342 |
|
|
|
10.10.2019 11:27:32 |
Mase |
|
|
|
10.10.2019 11:31:58 |
Gast85189 |
|
|
|
10.10.2019 12:13:03 |
Mase |
|
|
|
10.10.2019 12:33:27 |
Gast61997 |
|
|
|
10.10.2019 12:52:30 |
Mase |
|
|
MessageBox für erste freie Spalte |
10.10.2019 12:35:14 |
Werner |
|
|
|
10.10.2019 12:40:06 |
Gast21896 |
|
|
Von:
Werner |
Datum:
10.10.2019 12:35:14 |
Views:
477 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
10.10.2019 08:41:15 |
Gast69668 |
|
|
|
10.10.2019 08:54:18 |
Gast68282 |
|
|
|
10.10.2019 10:25:20 |
Mase |
|
|
|
10.10.2019 10:42:56 |
Gast91557 |
|
|
|
10.10.2019 10:50:31 |
Werner |
|
|
|
10.10.2019 10:59:21 |
Gast31683 |
|
|
|
10.10.2019 10:59:34 |
Mase |
|
|
|
10.10.2019 11:06:16 |
Gast46342 |
|
|
|
10.10.2019 11:27:32 |
Mase |
|
|
|
10.10.2019 11:31:58 |
Gast85189 |
|
|
|
10.10.2019 12:13:03 |
Mase |
|
|
|
10.10.2019 12:33:27 |
Gast61997 |
|
|
|
10.10.2019 12:52:30 |
Mase |
|
|
MessageBox für erste freie Spalte |
10.10.2019 12:35:14 |
Werner |
|
|
|
10.10.2019 12:40:06 |
Gast21896 |
|
|