Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Denksport zum Wochenende wegen Bezügen

Forumthread: Denksport zum Wochenende wegen Bezügen

Denksport zum Wochenende wegen Bezügen
04.02.2005 15:49:22
Lars
Also ich habe nun folgendes. (jan kennt das schon bei mir... ;) )
Ich habe 5 tabellenblätter, speichere sie ab, speichere sie unter neuem namen und kopiere eine liste vom letzen blatt zum ersten, um den nächsten tag zu beginnen.
Nun passiert aber folgendes:
der Verweis
=WENN(A2=0;"";SVERWEIS(A2; 'Kanban Liste'!$A$2:$G$40; 5; FALSCH))
wird zu einem schönen
=WENN(#BEZUG!=0;"";SVERWEIS(#BEZUG!; 'Kanban Liste'!$A$2:$G$40; 5; FALSCH))
Kopieren tue ich mit diesem Skripteil:

Sub speichern()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="U:\Kanban\K" & Date + 1
Worksheets("Übergabe nächster Tag").Range("A:B").Select
Selection.Cut
Sheets("Eingangsliste").Select
Worksheets("Eingangsliste").Range("A:B").Select
ActiveSheet.Paste
End Sub

Hinbekommen hab ich solche Skripte überhaupt erst mit C-Kenntnissen und viel Hilfe von Euch hier. :)
es gab viele gute ideen! :)
Also vielleicht fällt euch hier auch noch etwas ein.
Gruß Lars
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Denksport zum Wochenende wegen Bezügen
04.02.2005 16:01:29
Josef
Hallo Lars!
Sollte eigentlich reichen!

Sub speichern()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="U:\Kanban\K" & Date + 1
Worksheets("Übergabe nächster Tag").Range("A:B").Cut _
Worksheets("Eingangsliste").Range("A1")
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Denksport zum Wochenende wegen Bezügen
Lars
Japp, zum kopieren reicht das, aber meine Bezugsfrage ist noch net geklärt, weil immernoch dann überall eine dickes fettes: #BEZUG! steht... s.o.
AW: Denksport zum Wochenende wegen Bezügen
04.02.2005 16:17:37
Werner
Grüezi Lars
Ein #BEZUG entsteht, wenn die Zelle dieses Bezugs z.B. Gelöscht worden ist.
Was steht den in A2?
Gruss Werner
AW: Denksport zum Wochenende wegen Bezügen
Lars
||der Verweis
||=WENN(A2=0;"";SVERWEIS(A2; 'Kanban Liste'!$A$2:$G$40; 5; FALSCH))
||wird zu einem schönen
||=WENN(#BEZUG!=0;"";SVERWEIS(#BEZUG!; 'Kanban Liste'!$A$2:$G$40; 5; FALSCH))
Aus dem Verweis oben wird der darunter nach dem automatischen kopieren.
Anzeige
nachtrag dazu:
Lars
Sorry, wenn das schroff klang.
Bin nur etwas in zeitdruck, das Problem selbst hat zeit. Bin gleich auch im Wochenende. :)
Insofern frohes karnevalistisches Treiben allen, die sich noch mit dem Problem beschäftigen, oder auch nicht! :)
Und der sverweis zeigt leider aufs A2, das ersetzt wird. kann man verhindern, dass er das so meckernd annimmt?
Gruß Lars
Anzeige
AW: nachtrag dazu:
04.02.2005 16:31:44
Werner
Hallo Lars
Du kopierst die Formel in ein anderes Worksheet. Da findet er den Bezug nicht mehr.
Wenn Du die Zelle schützt "Ausgeblendet" übernimmt er nur den Wert und nicht die Formel
Gruss Werner
AW: nachtrag dazu:
Lars
Hm, ich glaube, wir reden aneinander vorbei. :)
Die formel steht da schon vorher und wird nicht eingefügt. Sie seht in spalte C und list aus A aus. Nur diesmal ändere ich das A in ein anderes A und das gefällt ihm nicht´.
Habe trotzdem mal das Ausblenden versucht, hat nur nix geholfen. Er meldet trotzdem noch fröhlich #BEZUG!
Schade.
Anzeige
AW: Denksport zum Wochenende wegen Bezügen
04.02.2005 16:44:51
Dominic
Hallo,
Ich schließe mich Werner Oertli an, irgendetwas passiert mit A2.
Aber ein Ausweg könnte sein:

Sub test()
Dim a As Long
Dim b As Long
Dim str As String
For a = 1 To Sheets("Übergabe nächster Tag").Cells(1, 1).End(xlDown).Row
For b = 1 To 2
With Sheets("Eingangsliste")
str = Sheets("Übergabe nächster Tag").Cells(a, b).FormulaLocal
.Cells(a, b) = str
End With
Next b
Next a
End Sub

gruß
Dominic
Anzeige
Danke, ist gelöst! :)
Lars
Hui, das klappt. prima.
Deine Prozedur als Übergabe benannt und private gemacht
und so ins neue blatt speichern

Sub speichern()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="U:\K" & Date + 1 & ".xls"
Sheets("Eingangsliste").Select
Columns("A:B").Select
Selection.Clear
Uebergabe
End Sub

Herzlichen Dank, ihr habt wieder klasse geholfen
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige