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 |
|
|
MessageBox für erste freie Spalte |
10.10.2019 12:13:03 |
Mase |
|
|
|
10.10.2019 12:33:27 |
Gast61997 |
|
|
|
10.10.2019 12:52:30 |
Mase |
|
|
|
10.10.2019 12:35:14 |
Werner |
|
|
|
10.10.2019 12:40:06 |
Gast21896 |
|
|
Von:
Mase |
Datum:
10.10.2019 12:13:03 |
Views:
482 |
Rating:
|
Antwort:
|
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
|
- 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 |
|
|
MessageBox für erste freie Spalte |
10.10.2019 12:13:03 |
Mase |
|
|
|
10.10.2019 12:33:27 |
Gast61997 |
|
|
|
10.10.2019 12:52:30 |
Mase |
|
|
|
10.10.2019 12:35:14 |
Werner |
|
|
|
10.10.2019 12:40:06 |
Gast21896 |
|
|