Thema Datum  Von Nutzer Rating
Antwort
10.08.2020 08:46:04 BigG
NotSolved
10.08.2020 09:27:22 Mase
NotSolved
10.08.2020 13:56:24 SometimesG
NotSolved
Blau Verbesserung/ Nachtrag
10.08.2020 14:09:14 G
NotSolved
10.08.2020 14:12:02 Mase
NotSolved
10.08.2020 14:16:42 Gast93270
NotSolved
10.08.2020 14:21:57 Mase
NotSolved
10.08.2020 14:41:04 Gast85002
NotSolved
10.08.2020 14:42:40 Gast26904
NotSolved

Ansicht des Beitrags:
Von:
G
Datum:
10.08.2020 14:09:14
Views:
556
Rating: Antwort:
  Ja
Thema:
Verbesserung/ Nachtrag

Hi,

ich bräuchte das, um dann in jeder Zeile wieder einen Eintrag zu machen, wenn der ganze Bereich denn auch frei sein sollte. Ansonsten, soll er eine Zeile runter und da (in der gleichen Spalte) nochmal prüfen.

Nun, vielleicht ist das unnötig kompliziert. Ich versuche es also mit :

 

    'Bestimmung Zelle bis wann belegt sein soll, Belegungsdauer ist Integer mit DateDiff()
    Set BelegungEnde = Belegung.Offset(0, Belegungsdauer)
    
    Dim rng As Range
    Set rng = Range(Belegung.Address & ":" & BelegungEnde.Address)
   
    'hier kommt die richtige Range raus (QN3:QQ3) z.b.
    MsgBox rng.Address(0,0)
   
     'hier kommt leider nichts richtiges raus. Warum?
    MsgBox Application.WorksheetFunction.CountA(rng(0,0))

 

Gruß

G


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.08.2020 08:46:04 BigG
NotSolved
10.08.2020 09:27:22 Mase
NotSolved
10.08.2020 13:56:24 SometimesG
NotSolved
Blau Verbesserung/ Nachtrag
10.08.2020 14:09:14 G
NotSolved
10.08.2020 14:12:02 Mase
NotSolved
10.08.2020 14:16:42 Gast93270
NotSolved
10.08.2020 14:21:57 Mase
NotSolved
10.08.2020 14:41:04 Gast85002
NotSolved
10.08.2020 14:42:40 Gast26904
NotSolved