Hier ist mal die Datei zum besseren Verständniss.

http://www.uploadagent.de/show-203289-1461596547.html

Gruß Monkee

Genau so meine ich das allerdings ist doch in den Zellen der Spalte "I" eine Kombibox....die müsste mit runter genommen werden. Und auch das Format soll mit runter genommen weden. siehe Anhang 

Jetzt funktioniert das schön und schon habe ich die nächste Frage.

Wie kann ich die beiden Zellen Status und Maßnahmen per UserBox in die nächste Zeile kopieren?

Und wie kann man bei gute Frage mal ne Exceldatei rüberschaufeln.

Gruß Monkee

Erst mal ein frohes neues Jahr. Wenn dein Kalender in der Spalte "A1" beginnt trägst du dort das Datum "01.01.2014" ein. Zuvor markierst du die Spalte A und rechte Maustaste Zellen formatieren....Datum. Dort kannst du einstellen ob auch der Wochentag angezeigt werden soll. Dann aktivierst du die Zelle "A2" und trägst ein "=A1+1". Nun ziehst du das runter bis zB. der 31.01.2015 erscheint. Wenn du nun in die Zelle A1 01.01.2015 eingiebst werden alle Daten aktualisiert. Ein Schaltjahr wird dabei berücksichtigt. Mit dem kurzen folgenden Makro kannst du noch Das Wochenende farbig markieren. Musst du noch anpassen.

Sub WochenendeFormatieren()

Dim Zelle As Range

Sheets("Tabelle1").Activate (Hier deine Tabelle angeben)

For Each Zelle In ActiveSheet.Range("A1:A400")
    If Weekday(Zelle) = 1 Then
      With Zelle
        .Interior.ColorIndex = 16
      End With
    ElseIf Weekday(Zelle) = 7 Then
      With Zelle
        .Interior.ColorIndex = 15
      
     
      End With
    End If
Next Zelle

End Sub

Hoffe es hilft dir

Gruß Monkee

B2 = 80km/h

E2 = B2/60....1,33333km/min

B3 = 81km

E3 = B3/E2.....60,75 min

B4 = 07:01 Uhr (Abfahrtzeit)

E4 = (STUNDE(B4)*60)+(MINUTE(B4)).....421 min

E5 = E3+E4......Ankunftszeit in Minuten = 481,75 min

F5 = GANZZAHL(E5/60).....Ankunftszeit/Stunden

G5 = RUNDEN(E5-(F5*60);0)....Ankunftszeit/Minuten

Das Runden muss sein um weiter zu arbeiten oder du musst dass System auf Sekunden erweitern.

H5 = VERKETTEN(F5;":";G5) Ankunftszeit als Text formatiert....8:2

B5 = ZEITWERT(H5).....als Uhrzeit formatiert....8:02 Uhr

Um eine Zeitangabe in 08:02 Uhr zu erreichen bitte benutzerdefiniertes Format versuchen.

Hoffe konnte helfen

Gruß Monkee

PS eventell kannst du die Formeln noch zusammenfassen.

Versuchs mal damit Sub DoppelteEinträgeLöschen1()

Sheets("Tabelle33").Activate ' (hier deine Tabelle eintragen)

Columns("A:A").Select '(hier die Breite der Tabelle festlegen) Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

Range("A1").Select Do Until IsEmpty(ActiveCell) If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then ActiveCell.Offset(1, 0).EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub

Damit hast kannst du eine unsortierte Spalte sortieren und anschliesend die doppelten Zellen löschen. Aber aufpassen. neben der Spalte A sollten keine Daten stehen, zu Not die Spalte A kopiere und in ein leeres Tabellenblatt einfügen, dort das Makro ausführen und zurück kopieren. Vielleicht kann ja jemend noch das ganze anpassen. Gruß Monkee

Wenn deine Tabelle bei C4 anfängt dann in C5 diese Formel und anschließend runter kopieren. Wenn deine Tabelle nicht in C4 anfängt musst du die Formel anpassen.

=WENN(C4=10;"Fenster";WENN(C4=11;"Fenster";WENN(C4=12;"Fenster";WENN(C4=13;"Fenster";WENN(C4=14;"Fenster";WENN(C4=15;"Fenster";""))))))

Hoffe konnte helfen Gruß Monkee

Hier ein kleines Makro zum Suchen der ersten freien Zelle in Spalte A mit Ausgeabe in einer MsgBox. Musst du für deine Sache anpassen.

Gruß Monkee

Sub ErsteFreieZelleInSpalteA()

Dim s As String

Dim i As Long

With ActiveSheet

i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Activate
        MsgBox ActiveCell.Offset.Address
        Exit Do
    End If
Loop While i < 65535

End With

End Sub

Ich gehe mal davon aus, dass dein Kalkulationsprogramm zeilenweise aufgebaut ist, dann müsstest du aber formulieren Wenn B4= beliebiger Text dann A4= A3+1. dann lautet die Formel ganz kurz....Formel für Zelle A4 =WENN(B4="";"";A3+1).

Sollte allerdings das ganze Zweizeilig oder mehrzeilig denn füge eine Schaltfläche ein und weise dieser Schaltfläche dieses Makro zu

Sub zaehlen()

Dim zaehler As Integer

Dim nummer As Integer

Dim Loletzte As Long

Loletzte = IIf(IsEmpty(Range("b65536")), Range("b65536").End(xlUp).Row, 65536)

For zaehler = 1 To Loletzte

If Cells(zaehler, 2) <> "" Then

nummer = nummer + 1

Cells(zaehler, 1) = nummer

End If

Next

End Sub

Ich hoffe ich konnte helfen

Gruß Monkee

Versuch mal über Extras...Makro...aufzeichnen. dann bekommst du sowas.

Sub Addition() ' ' Addition Makro ' Makro am 28.01.2012 aufgezeichnet '

' Range("A9").Select ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C" Range("A10").Select End Sub

So habe ich mir viel in Excel selbst beigebracht.

Gruß Monkee

Versuchs mal, damit wird die erste frei Zelle in A angesprungen.Vorausetzung es beginnt bei A1

Sub ErsteFreieZelleInSpalteA()

Dim s As String

Dim i As Long

With ActiveSheet

i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Activate
        Exit Do
    End If
Loop While i < 65535

End With

End Sub

Mit Excel 2002 geht es.

Gruß Monkee

Schritt 1 : Tabelle markieren….Extras…Schutz….Benutzer dürfen Bereiche bearbeiten Siehe Bild1 Danach auf neu klicken Siehe Bild2 Der Markierte Bereich wird automatisch selektiert…kein Kennwort für diesen Bereich festlegen und ok Siehe Bild3 Danach auf Blattschutz klicken Siehe Bild 4 Hier ein Kennwort eingeben und bei Gesperrte Zellen auswählen und nicht gesperrte Zellen einen Hacken setzen…ok Siehe Bild5 Kennwort wiederholen …ok siehe Bild 6 Nun sollte die Kopfzeile und alles was außerhalb des Bereiches liegt geschützt sein. Willst du mehr wie in dem Bereich erlauben musst du den Bereich anpassen.

Ich hoffe ich konnte dir helfen Gruß Monkee