Thema Datum  Von Nutzer Rating
Antwort
14.07.2016 09:35:37 Sebastian
NotSolved
Blau Zeilen automatisch von Anfang bis Ende der Spalte ausfüllen
 14.07.2016 12:04:44 User17330
NotSolved

Ansicht des Beitrags:
Von:
User17330		 Datum:
14.07.2016 12:04:44		 Views:
788		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen automatisch von Anfang bis Ende der Spalte ausfüllen

Hallo Sebastian,

beides in einem könnte das so aussehen:

Sub Auffüllen()
Dim lz As Long, lzc As Long
Dim da As Variant

lz = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
lzc = Sheets(1).Cells(1048576, 3).End(xlUp).Row

da = InputBox(prompt:="Bitte geben Sie ein Datum ein")
Range(Cells(1, 1), Cells(lz, 1)).Value = da

If Cells(1, 3).Value = "" Then
    Range(Cells(1, 3), Cells(lz, 3)).Value = "xy"
Else
    Range(Cells(lzc + 1, 3), Cells(lz, 3)).Value = "xy"
End If
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
14.07.2016 09:35:37 Sebastian
NotSolved
Blau Zeilen automatisch von Anfang bis Ende der Spalte ausfüllen
 14.07.2016 12:04:44 User17330
NotSolved