Tabelle verändern

Michou · 29. Oktober 2008 um 12:50

Hallo,

ich habe mal wieder ein Problem mit einer Tabelle.
Das Problem send ich als link mit und hoffe, dass es daurch ausreichend erklärt ist.
Diese Tabelle ist nur ein kleiner Ausschnitt.Komplett ist sie für ein ganzes Jahr.
Ich würde mich freuen, wenn mir hier auch weiter geholfen werden könnte.
Schon mal vielen Dank für eure Mühe.
Ich habe mir schon eine kleine Formel gebastelt, welche aber noch nicht richtig funktioniert siehe dem link, den ich mit Anhänge.
Ich denke da müsste ein Makro geschrieben werden.Habe schon versucht eins einzubauen, welches noch nicht ganz funktioniert, eigentlich funktioniert es noch gar nicht

http://www.datei-upload.eu/file.php?id=ba47dac1ac93e…

Grüße Michael

Michou · 29. Oktober 2008 um 23:52

Schade, dass keiner von den Excel Experten mir hier weiter helfen konnte.
Da scheint mein Problem, tatsächlich nicht lösbar zu sein und ich werde wohl die mühsame copy paste Anwendung benutzen müssen.
Trotzdem möchte ich mich für die vorigen netten Antworten bedanken und habe immer noch ne Hoffnung, irgendeinen Meldung auf mein wohl größeres Problem zu bekommen.

Euch allen eine schöne Nacht

Michael

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 30. Oktober 2008 um 07:50

Trotzdem möchte ich mich für die vorigen netten Antworten
bedanken und habe immer noch ne Hoffnung, irgendeinen Meldung
auf mein wohl größeres Problem zu bekommen.

http://www.datei-upload.eu/file.php?id=ba47dac1ac93e…

Hi Michael,

ich verstehe nicht woher die 0,9 kommt bei F32 u.v.m.

Gruß
Reinhard

Michou · 30. Oktober 2008 um 12:01

Hallo Reinhard,

ich habe jetzt versucht die Tabelle ein wenig deutlicher zu machen und mehr Text verwendet ich hoffe, dass sie jetzt verständlicher ist und ich hoffe, dass es sich hierbei nicht um ein all zun großes und komplexes Problem handelt

Grüße Michael

http://www.datei-upload.eu/file.php?id=f0d573a4d5960…

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 30. Oktober 2008 um 12:46

Hi Michael,

ich habe jetzt versucht die Tabelle ein wenig deutlicher zu
machen und mehr Text verwendet

ich weiß nun daß E32 aus C219 kommen soll, aber noch lange nicht warum. Desgleichen für E33,E34 usw.

ich hoffe, dass sie jetzt
verständlicher ist

Nein.

und ich hoffe, dass es sich hierbei nicht
um ein all zun großes und komplexes Problem handelt

Noch nicht absehbar um was es sich da handelt.

Gruß
Reinhard

Michou · 30. Oktober 2008 um 14:31

Hallo Reinhard,
irgendwie schaffe ich mein Anliegen nicht klar rüber zu bringen. Tut mir Leid.
Ich versuche es nocheinmal mit noch mehr Text in meiner Excel Datei.

Hi Michael,

ich habe jetzt versucht die Tabelle ein wenig deutlicher zu
machen und mehr Text verwendet

ich weiß nun daß E32 aus C219 kommen soll, aber noch lange
nicht warum. Desgleichen für E33,E34 usw.

Mich interessieren immer nur die Werte von 21:00 bis 4:00 Uhr und die Werte mit der Minute 55

ich hoffe, dass sie jetzt
verständlicher ist

Nein.

Ich hoffe meine neue Tabelle ist jetzt verständlicher

und ich hoffe, dass es sich hierbei nicht
um ein all zun großes und komplexes Problem handelt

Noch nicht absehbar um was es sich da handelt.

In Spalte F habe ich ja eine Formel gebastelt, die mir die Werte von Spalte D herholt, und zwar die Stunden Werte und danach dien Werte mit der Minute 55, aber dies macht sie nur für einen Tag, für den nächsten Tag klappt es irgendwie nicht.

hier der link

http://www.datei-upload.eu/file.php?id=50822fc73b119…

Gruß Michael

und ich hoffe ich mache dir keine allzu große Umstände wegen meinem Problem

Gruß
Reinhard

Reinhard_fb8cb7 · 1. November 2008 um 15:18

irgendwie schaffe ich mein Anliegen nicht klar rüber zu
bringen. Tut mir Leid.
Ich versuche es nocheinmal mit noch mehr Text in meiner Excel
Datei.

Hi Michael,

Tabellenblatt: C:\DOKUME~1\ICHALS~1\LOKALE~1\Temp\[86c9b63e1ab1173b052f2f7568b5fa96-2.xls]!Tabelle1
 │ A │ B │ C │ D │ E │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 1 │ │ │ │ │ │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 2 │ │ UhrZeit │ E │ mit eingebauter Formel │ so sollte sie aber aussehen │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 3 │ 3 │ 00:00 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 4 │ 4 │ 01:00 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 5 │ 5 │ 02:00 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 6 │ 6 │ 03:00 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 7 │ 7 │ 04:00 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 8 │ │ 05:00 │ 0,00 │ 12,60 │ 12,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
 9 │ │ 05:05 │ 0,00 │ 26,30 │ 26,3 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
10 │ │ 05:10 │ 0,00 │ 44,60 │ 44,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
11 │ │ 05:15 │ 0,00 │ 89,00 │ 89 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
12 │ │ 05:20 │ 0,00 │ 145,60 │ 145,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
13 │ │ 05:25 │ 0,00 │ 193,60 │ 193,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
14 │ │ 05:30 │ 0,00 │ 245,30 │ 245,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
15 │ │ 05:35 │ 0,00 │ 256,60 │ 256,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
16 │ │ 05:40 │ 0,00 │ 180,30 │ 180,3 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
17 │ │ 05:45 │ 0,00 │ 103,60 │ 103,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
18 │ │ 05:50 │ 0,00 │ 42,60 │ 42,6 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
19 │ 19 │ 05:55 │ 12,60 │ 1,50 │ 1,5 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
20 │ │ 06:00 │ 0,00 │ 0,70 │ 0,7 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
21 │ │ 06:05 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
22 │ │ 06:10 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
23 │ │ 06:15 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
24 │ │ 06:20 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
25 │ │ 06:25 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
26 │ │ 06:30 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
27 │ │ 06:35 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
28 │ │ 06:40 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
29 │ │ 06:45 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
30 │ │ 06:50 │ 0,00 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
31 │ 31 │ 06:55 │ 26,30 │ 0,00 │ 0 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
32 │ │ 07:00 │ 0,00 │ 0,90 │ 0,9 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
33 │ │ 07:05 │ 0,00 │ 1,50 │ 1,5 │
───┼────┼─────────┼───────┼────────────────────────┼─────────────────────────────┤
34 │ │ 07:10 │ 0,00 │ 3,50 │ 3,5 │
───┴────┴─────────┴───────┴────────────────────────┴─────────────────────────────┘
Benutzte Formeln:
A3 : =WENN(UND(STUNDE(B3)\>=5;STUNDE(B3)=5;STUNDE(B4)=5;STUNDE(B5)

Tabellendarstellung erreicht mit dem Code in [FAQ:2363](/t/faq/9292363)

Gruß
Reinhard

Michou · 4. November 2008 um 14:23

Hallo Reinhard,

vielen Dank für deine Mühe,dies klappt eins a. Werde jetzt mal die Formel für mein komplettes Datensatz ausprobieren und hoffe, dass dies nicht zu lange dauert.
Auf jeden Fall vielen Dank für deine Mühe.

Grüße Michael

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Michou · 4. November 2008 um 17:41

Hallo Reinhard,

ich muss leider nocheinmal nerven. Gibt es irgendwie die Möglichkeit diese Formel in ein Makro einzubauen, da mein Rechner, da ewig lange rechnet und die Datei, relativ groß wird.
Ich habe mich mal an dem Makro versucht und dachte, dass ich einfach nur deine Formel einbauen muss, was aber irgendwie nicht zu funkzionieren scheint.
So sieht erstmal mein Makro aus.

Sub einstrahlung()

Dim zeile As Long, eg As String
eg = „wenn(istfehler(kkleinste(C:C;Zeile()-2));“";INDIREKT("„e“"&kkleinste(C:C;Zeile()-2)))"
Columns(3).NumberFormat = „0.00“
zeile = Range(„e“ & Rows.Count).End(xlUp).Row
Range(„i1:i“ & zeile).FormulaLocal = eg
Range(„i1:i“ & zeile).Value = Range(„i1:i“ & zeile).Value

End Sub

Aber irgendwie komme, da keine vernünftige WErte hinein sonder immer nur der Text aus der Formel.

Grüße Michael

Ps.hier der link meiner Excel datei,dies ist wiederum nur ein kleiner auszug, es handelt sich um ein komplettes Jahr,mit maximaler Zeilenausnutzung
http://www.datei-upload.eu/file.php?id=9bb73332b8278…

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 4. November 2008 um 18:08

Ich habe mich mal an dem Makro versucht und dachte, dass ich
einfach nur deine Formel einbauen muss, was aber irgendwie
nicht zu funkzionieren scheint.
So sieht erstmal mein Makro aus.

Sub einstrahlung()

Dim zeile As Long, eg As String
eg =
„wenn(istfehler(kkleinste(C:C;Zeile()-2));“";INDIREKT("„e“"&kkleinste(C:C;Zeile()-2)))"

Hallo Michael,

ich hab das jetzt nur überflogen und den Link noch gar nicht angeklickt.

Auf jeden Fall muß vor das Wenn ein Gleichheitszeichen:

eg="=Wenn…

Wenn es dann immer noch nicht klappt muß ich/man mal genauer schauen.

Gruß
Reinhard

Michou · 5. November 2008 um 10:30

Hallo Reinhard,

ok werde ich ausprobieren, verstehe aber nicht, warum man 2 Gleichheitszeichen benutzen muss.

Grüße Michael

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Michou · 6. November 2008 um 10:11

Hallo Reinhard,

am 2.Gleichheitszeichen liegt es auf jeden Fall nicht, denn damit funktioniert es jetzt gar nicht mehr.
Mit meinem alten code wurde immer die komplette Funktion in mein Excel tool gegeben.Dies verstehe ich nicht. Ich weiß nicht, was ich da falsch mache.
Deine Funktion funktioniert einwandfrei, aber jedes mal, wenn ich dieses Datenblatt öffne, rechnet er alle Zellen komplett neu, was immer so bis zu 10 Minuten dauert. Dies ist irgendwie lästig.
Weiß du wie man dies beheben könnte.
SChon mal im voraus Danke für deine Mühe.

Grüße Michael

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 6. November 2008 um 11:39

Hallo Michael,

am 2.Gleichheitszeichen liegt es auf jeden Fall nicht, denn
damit funktioniert es jetzt gar nicht mehr.

das zweite Gleichheitszeichen muß rein!

Mit meinem alten code wurde immer die komplette Funktion in
mein Excel tool gegeben.Dies verstehe ich nicht. Ich weiß
nicht, was ich da falsch mache.

da fehlte das zweite Gleichheitszeichen!

Deine Funktion funktioniert einwandfrei, aber jedes mal, wenn
ich dieses Datenblatt öffne, rechnet er alle Zellen komplett
neu, was immer so bis zu 10 Minuten dauert. Dies ist irgendwie
lästig.

Deshalb Formeln rauswerfen und den Code benutzen.
In der Formel war noch ein Fehler. Anführungszeichen müssen in Vba wenn sie in einer Formel für Excel stehen doppelt angeben werden.

Wenn Z.B. diese Formel in A1 erscheinen soll:

=Wenn(B1>5;„Gut“;"")

so sieht das in Vba so aus=

Range(„A1“).FormulaLocal="=Wenn(B1>5;"„Gut“";"""")"

Hier der funktionierende Code:

Sub einstrahlung()
Dim zeile As Long, eg As String
eg = „=wenn(istfehler(kkleinste(C:C;Zeile()-2));“""";INDIREKT("„e“"&kkleinste(C:C;Zeile()-2)))"
Columns(3).NumberFormat = „0.00“
zeile = Range(„e“ & Rows.Count).End(xlUp).Row
Range(„i3:i“ & zeile).FormulaLocal = eg
Range(„i3:i“ & zeile).Value = Range(„i3:i“ & zeile).Value
End Sub

Gruß
Reinhard

Michou · 6. November 2008 um 15:12

Hallo Reinhard,

ja dann vielen Dank für deinen Verbesserungsvorschlag. Jetzt funktioniert mdas Makro einwandfrei.

Rechnet immer noch ein bißchen lange, aber das lässt sich wohl nicht verhindern, wenn ich 65230 Zeile verwende.

Vielen Danke und Grüße

Michael

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 6. November 2008 um 15:49

ja dann vielen Dank für deinen Verbesserungsvorschlag. Jetzt
funktioniert mdas Makro einwandfrei.
Rechnet immer noch ein bißchen lange, aber das lässt sich wohl
nicht verhindern, wenn ich 65230 Zeile verwende.

Hallo Michael,

probier mal diesen Code:

Sub einstrahlung()
Dim zeile As Long, eg As String
Application.ScreenUpdating = False
eg = "=wenn(istfehler(kkleinste(C:C;Zeile()-2));"""";INDIREKT(""e""&kkleinste(C:C;Zeile()-2)))"
Columns(3).NumberFormat = "0.00"
zeile = Range("e" & Rows.Count).End(xlUp).Row
Range("i3:i" & zeile).FormulaLocal = eg
Range("i3:i" & zeile).Value = Range("i3:i" & zeile).Value
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard