Supportnet / Forum / Tabellenkalkulation
Vereinfachung für eine Liste gesucht - irgendwie automatisch?
Frage
Hallo zusammen,
ich bin Handwerker und fasse Abends am PC immer meine Arbeiten zusammen.
Meine Exceltabelle sieht wie folgt aus:
[code]
Kalenderwoche X
12.08.2005 Max Mustermann 1 1/2 5x Tische lackiert
[/code]
An der Spitze steht die Kalenderwoche, darunter in der ersten Spalte das Datum, dann der Kundenname, die Arbeitszeit, die Anzahl/Menge und dann die Tätigkeit.
Also bis jetzt war ich immer der Typ, der mit der Maus immer dort hin navigiert ist, wo er etwas reinschreiben wollte. Da aber die Konzentration abends nichtmehr die beste ist, wird mir das zuviel rumgeklicke und ich habe gehört, dass es mit VBA oder Makros möglich sein soll, automatisch alles am rechten Platz anzuordnen.
Geht es, dass ich ein festes Formular ausfülle und mir Excel automatisch alles an die Liste unten dranhängt in der richtigen Formatierung?
Ich habe Excel 2003 auf dem Rechner. Danke im Vorraus und beste Grüße.
Antwort 1 von Sledge
Hallo,
wenn Du eine Überschrift hast geh in eine Zelle der Überschirft und dann auf Daten -> Maske
Das dürfte das sein was Du suchst.
Viele Grüße
Sledge
wenn Du eine Überschrift hast geh in eine Zelle der Überschirft und dann auf Daten -> Maske
Das dürfte das sein was Du suchst.
Viele Grüße
Sledge
Antwort 2 von FranzKala
Hallo!
Ich habe mir Deinen Vorschlag angeschaut und muss leider sagen, dass mir das nicht flexibel genug ist.
Vorhin habe ich etwas im Internet gesucht und habe mir mit Zähneknirschen folgendes zusammenbasteln können:
Reihe 1 ist die Tabellenüberschrift mit den ganzen Spaltenbezeichnungen (Datum, Kunde, Zeit, Anzahl und Tätigkeit). Mit obigem VBA-Code hab ich es geschafft, Datensätze an der richtigen Stelle mit einem Formular hinzuzufügen.
Aber es gibt folgende Probleme:
1. Wie komme ich an die Kalenderwoche?
2. Wie schaffe ich es, dass er bei jedem Wochenbeginn (Montags) eine neue solche Maske erstellt? Dass also nicht jeder Datensatz endlos untereinander gesetzt wird, sondern bei jedem Wochenbeginn erneut der Header mit Datum, Kunde, Zeit, Anzahl und Tätigkeit zu sehen ist.
Oh Gott, was hab ich mir da bloß ausgedacht :-) Bitte helft mir.
Ich habe mir Deinen Vorschlag angeschaut und muss leider sagen, dass mir das nicht flexibel genug ist.
Vorhin habe ich etwas im Internet gesucht und habe mir mit Zähneknirschen folgendes zusammenbasteln können:
Private Sub CommandButton1_Click()
Dim reihe As Integer, spalte As Integer
spalte = 1
reihe = 3
While ActiveSheet.Cells(reihe, spalte).Value <> "" 'erste leere Zeile suchen
reihe = reihe + 1
Wend
Cells(reihe, spalte) = (Day(Date) & "." & Month(Date) & "." & Year(Date))
Cells(reihe, spalte + 1) = TextBox1.Text
Cells(reihe, spalte + 2) = TextBox2.Text
Cells(reihe, spalte + 3) = ComboBox1.Text
Cells(reihe, spalte + 4) = TextBox3.Text
End Sub
Reihe 1 ist die Tabellenüberschrift mit den ganzen Spaltenbezeichnungen (Datum, Kunde, Zeit, Anzahl und Tätigkeit). Mit obigem VBA-Code hab ich es geschafft, Datensätze an der richtigen Stelle mit einem Formular hinzuzufügen.
Aber es gibt folgende Probleme:
1. Wie komme ich an die Kalenderwoche?
2. Wie schaffe ich es, dass er bei jedem Wochenbeginn (Montags) eine neue solche Maske erstellt? Dass also nicht jeder Datensatz endlos untereinander gesetzt wird, sondern bei jedem Wochenbeginn erneut der Header mit Datum, Kunde, Zeit, Anzahl und Tätigkeit zu sehen ist.
Oh Gott, was hab ich mir da bloß ausgedacht :-) Bitte helft mir.