Wenn Zelle gefüllt i.d. nächste springen

[Rabe]

Hi,

wenn Du die Formel von Ralf nimmst:
=TEIL($G14;SPALTE(B1);1)
mußt Du nicht manuell den zweiten Parameter hochzählen, das erledigt sich durch das nach rechts ziehen automatisch.

Für G sehe ich nur eine VBA-Lösung.

[RPP63]

Ach so:
Am Ende des Monats die Datei als .xlsx abspeichern, dann gibt es auch keinen Ärger mit der LoBu

[RPP63]

und noch ein Zusatz:
Wenn es sich bei den Nummern um echte Zahlen handeln sollte, musst Du VORHER das Format in G:K in TEXT ändern.
Außerdem bietet es sich hier an, falsche Längen gleich in der Datenüberprüfung für Spalte G festzulegen, dann entfällt im Makro die Überprüfung auf Len()
   

[Didi]

Am Ende des Monats die Datei als .xlsx abspeichern, dann gibt es auch keinen Ärger mit der LoBu

Viel schlimmer, ich speichere die Datei als *pdf und verschicke sie.

Deshalb verstehe ich nicht warum die Zellen nicht verbunden werden dürfen.
Vieleicht kommt mein AG ja auf den Gedanken irgendwann einmal die Datei als xls weiter zu verarbeiten.

Über das Benutzerdefinierte Zahlenformat bin ich in G auf 2 Stellen runter gekommen.

Dieter

[RPP63]

So, ich hatte Langeweile und werde gleich der Sonne huldigen.
Alle Vorschläge wurden in Deine Datei eingearbeitet.
Das _Change sieht jetzt so aus:
Microsoft Excel Objekt Tabelle2

Option Explicit 



Private Sub Worksheet_Change(ByVal Target As Range) 

Dim i& 

With Target 

  If Not Intersect(Target, Range("UnitNummer")) Is Nothing Then 

    Application.EnableEvents = False 

    For i = 4 To 0 Step -1 

      .Offset(0, i).Value = Mid(.Text, i + 1, 1) 

    Next 

    Application.EnableEvents = True 

  End If 

  If Not Intersect(Target, Range("Auftragsnummer")) Is Nothing Then 

    Application.EnableEvents = False 

    For i = 6 To 0 Step -1 

      .Offset(0, i).Value = Mid(.Text, i + 1, 1) 

    Next 

    Application.EnableEvents = True 

  End If 

End With 

End Sub 

Ich habe den Spalten G und L Namen gegeben, für die ganzen Stunden-Eintragungen hast Du ja jetzt einen Ansatz, den Du sicherlich anpassen kannst.

Schönes WE wünscht Ralf

[Didi]

Vielen Dank für die Arbeit.
Ich habe einige Stunden damit verbracht dahinter zu kommen wie es funktioniert.
Ich habe lange gebraucht um zu verstehen das die Spalten einen Namen bekommen haben.
Nachdem ich alle Bereiche mit diesem VBA versehen hatte ist mir aber leider etwas neues aufgefallen.

Da alle Zellen nun "Text" sind wird unter den Spalten keine Summe mehr gebildet.

Dieter

[RPP63]

Moin!
Ja, "Textzahlen" lassen sich nicht per SUMME() addieren!
Das "gute, alte" SUMMENPRODUKT() kann dies jedoch:

	A
1	1
2	2
3	3
4	0
5	6

Zelle	Format	Wert
A1	@	1
A2	@	2
A3	@	3

Zelle	Formel
A4	=SUMME(A1:A3)
A5	=SUMMENPRODUKT(A1:A3*1)

Gruß Ralf

[Dieter63]

Hallo,


warum  willst du nicht  die  TAB Taste  benutzen  ,  du brauchst kein  VBA , keine  Regeln die  vielleicht  morgen  schon  nicht  mehr  gültig  sind.

Was  noch  schlimmer  ist

Jede Unstimmigkeit führt zu einer falschen Buchung.

Das im Nachhinein zu recherchieren und richtig zu stellen erfordert viel Zeit!

 -->   es gibt  in  der ganzen Mappe  keine einzige  Datenüberprüfung  d.h.  jede  Eingabe ist erlaubt  

[RPP63]

Kritik an der Datei hatte ich ja bereits geäußert.
"Sinn" des Threads ist halt, die Kuh vom Eis zu bekommen.
Ich persönlich würde eben auch viel lieber
12345 Enter
statt
1 Tab 2 Tab 3 Tab 4 Tab 5 Tab
nehmen!

Aber, Didi, die Tatsache, dass Du die Tabelle als PDF verschicken musst, hat was!  :21:
Hat die Lohnbuchhaltung ein Heer von Mindestlohn-Jobbern, die das dann wieder ins System einhämmern?
Und ich dachte schon, dass ich bereits so ziemlich jede Unglaublichkeit gesehen habe.

[off topic]
@Dieter63:
Bekommst Du Mengenrabatt für Deine überflüssigen Leerzeichen?
Da schmerzen ja meine Augen!
[/off topic]

Gruß Ralf

[Didi]

Über das was mein AG so macht zerbreche ich mir nicht mehr den Kopf.
Ich versuche für mich das beste daraus zu machen.

Das richtig zusammen zählen habe ich hin bekommen.

Ich habe einfach aus allen Zellen den Wert genommen.
Dann die Formeln in den eingegrauten Feldern etwas verändert.
Klappt auch ganz gut wenn alle Felder ausgefüllt sind.
Eine leere Zelle ergibt leider # und bringt alles durcheinander.

Ich werde daher mal versuchen den neuen Vorschlag um zu setzen.

Ich sehe das bearbeiten dieser Tabelle nicht als Pflicht an. Vielmehr ist es für mich der Weg mehr mit Excel zu arbeiten und dabei zu lernen.
So verstehe ich zwar im Augenblick was das Summenprodukt ist, aber dank des WWW werde ich mich schlauer lesen.

@Dieter63

Ich hatte früher eine eigene Tabelle wo die Zellen verbunden waren. Es wurden also immer alle Zahlenwerte in einer Reihe eingegeben.
Es wird schon schwer genug sein bei der Stundeneingabe kein Komma mehr zu setzen.



Dieter