VBA - kopieren & gemäß Zelle korrekt zuordnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christian,
ok, ich formuliere es noch direkter:
Klar, ich darf dir + niemandem vorschreiben, was er zu tun/zu lassen hat.
Aber ich würde mich so freuen, wenn sich die Fragenden vor jeder Antwort! Gedanken machen würden, wie die Antwort von den Lesenden (Helfenden) verstanden wird!
Du formulierst so vieles so ungenau.
"Ich kann es unter meiner Version hier zu Hause auch nicht wirklich nachvollziehen"
Super Christian, echt super^^
Und genau welche Version nutzt du zu Hause?
Wüsste ich das, könnte ich dir vielleicht n Tipp nennen, was du zu Hause einstellen musst, damit meine Testdatei auch bei dir zu Hause funktioniert.
Ja, natürlich kann es auch sein, dass ich - nicht - helfen kann, wenn ich die Version wüsste.
Aber Stand jetzt: Ich kann nicht mal sagen, dass ich nicht helfen kann.
"Darf ich dich zusätzlich noch um 2 Punkte bitten:"
JEIN!
Eigtl wollt ich jetzt fragen, wieso packst du in die Bsp-Datei nicht gleich alles mit rein, was du jetzt im Nachhinein noch erfragst?
Aber zum Glück fiel mir ein, "dass ich ja selbst schuld bin", weil ich dir empfohlen hatte, Stück für Stück deine Probleme zu schildern - aber in unterschiedlichen Threads!
So wie jetzt kann es nämlich passieren, dass - nur ich - dir helfen werde, weil du ja vielleicht! - immer im selben Thread - noch ne Frage hinten dran hängst, sobald die zuvor gestellte Frage gelöst ist.
Aber ok, diese 2 Extra-Fragen (Button + Datum) versuche ich einzubauen.
Alles Weitere dann bitte in neuen Threads.
Ich versuch mich jetzt an deiner Bsp-Datei.
Aber das hier musste ich erst mal loswerden.
Und besonders zum ersten Teil dieser Antwort stehe ich.
Nenne die Dinge beim richtigen Namen, schreib so wenig wie möglich (nich viel drum rum), aber schreib so viel wie nötig (alle erforderlichen Infos)
Du weißt doch gar nicht, was wir alles wissen wollen/müssen?
Ok, Bsp:
Ich ruf bei dir an und bitte dich, mir einen Schrank zu bauen, sage Tschüss und lege wieder auf.
(ICH weiß ja, WIE der Schrank aussehen soll)
Du hast keine Chance, mir einen Schrank zu bauen!
- wie breit?
- wie hoch?
- wie tief?
- welche Farbe?
- welches Holz?
...DAS wären zumindest die MUSS-Infos, die ich dir NICHT geliefert habe...(wieso auch?! ICH weiß doch, wie der Schrank aussehen soll!)
So, sorry, musste ich mal loswerden.
Ciao erst mal
Thorsten
...melde mich bald wieder mit ner neuen Datei...

Hi Throsten,
Danke für deinen Beitrag.
ich verstehe deine Perspektive und deine Haltung dazu.
Mir ist auch selbst aufgefallen, dass ich einige Sachen hätte besser ausführen oder überhaupt aufführen sollen.
Werde daraus lernen und sehe einen Teilgrund auch wirklich darin, dass mich dieser Vorgang etwas überfordert und ich oftmals auch nicht schlüssig darüber war, wie ich es am
besten hätte beschreiben sollen. Zum einen wollte ich nicht wieder total viel Text schreiben und zum anderen wollte ich auch wirklich nur auf dieses Teilproblematik eingehen.
Den Punkt mit der Version habe ich aber bewusst nicht konkretisiert, weil es mir ehrlich gesagt peinlich war, dass ich es nicht hinbekommen habe das WARUM noch mit anzugeben - WARUM es bei mir nicht läuft.
Letzlich wollte ich nicht deine Zeit auch noch damit beanspruchen, wenn du schon so geduldig bist, mir auch noch solche simplen Grundlagen zu erläutern.
Meine Version Zuhause ist 2007. Ich werde sofort morgen Früh im Büro das Ganze mit Office 365 testen, denn das ist auch die Version unter der es laufen soll.
Außerdem möchte ich noch explizit auf meine Bitte mit den 2 Zusatzbitten eingehen.
Dies resultiert daraus, dass ich etwas bedenken habe, dass ich später deinen Code einfach in ein CommandButton übernehmen kann, weil ich mit diesem "(ByVal auswahlA1 As String)" nichts anfangen kann.
Die Bitte mit dem Datum in Spalte 3 hat den Hintergrund, dass ich mich gefragt habe, wie ich diesen Punkt, den ich vorher auch absplitten wollte, weil ich dachte, dass es zu viel Anforderungen für ein Thread sind,
später einzeln erfragen soll. Einfach aus dem Grund, weil es dann ja eigentlich wieder genau diesem Hintergrundwissen bedarf.
Aber auch hier muss ich sagen, dass ich deinen Anmerkung verstehe und als berechtigt ersehe!
Kurzum, ich werde versuchen mich dahingehend zu verbessern und mir vorher nochmals wirklich ausführlich Gedanken machen. Ich glaube ich bin das zu schnell angegangen mit diesen Teilproblem ausgliedern. Ich hätte
vorher nochmals genau in mich gehen müssen, was jetzt hierbei wirklich für den Helfer wissenswert ist und was einfach nur BlaBla.
Danke dir, ich freuen mich sehr auf deine Rückmeldung dann!
Auch NOCHMALS Danke für deine Geduld, ich habe es dir nicht besonders einfach gemacht ...

Oh, jetzt habe ich deinen neuen Beitrag gerade gelesen - mit der Rückfrage.
Diese Problem ist mir auch bereits aufgefallen und ich habe versucht dir das mit meinem Kommentar im vorher geposteten Bild zu beantworten.
Dort habe ich in Bereich C noch 4 Zahlen ergänzt, damit es der tatsächlichen Situation entspricht.
Es sind also IMMER gleich viel Zahlen in BEREICH A und C. D.h. diese gestellte Frage kommt gar nicht auf.
Bzgl. Zeitstempel, der Gedanke war sehr gut. Ich muss sehen ob ich es mit Zeitstempel dann verarbeiten kann.
Ich will diese Daten dann per SUMMEWENNS einer Kalenderwoche zuordnen. Im Notfall denke ich würde ich es hinkriegen diesen wieder zu entfernen, aber wenn du möchtest, kannst
du als Anmerkung dann noch anführen, was ich genau aus dem Code löschen muss, wenn ich den Zeitstempel nicht brauchen würde.
Viele Grüße,
Christian

With lshTab1 For lloFrom_AC_to_Tab2 = 4 To .Cells(Rows.Count, 1).End(xlUp).Row lshTab2.Cells(lloRowAC, lloColAC).Value = .Cells(lloFrom_AC_to_Tab2, 1).Value lshTab2.Cells(lloRowAC, lloColAC + 1).Value = .Cells(lloFrom_AC_to_Tab2, 3). _ Value lshTab2.Cells(lloRowAC, lloColAC + 2).Value = Date lloRowAC = lloRowAC + 1 Next End With

With lshTab1 For lloFrom_AC_to_Tab2 = 4 To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(lloFrom_AC_to_Tab2, 1).Value "" Then lshTab2.Cells(lloRowAC, lloColAC).Value = .Cells(lloFrom_AC_to_Tab2, 1). _ Value lshTab2.Cells(lloRowAC, lloColAC + 1).Value = .Cells(lloFrom_AC_to_Tab2, 3). _ Value lshTab2.Cells(lloRowAC, lloColAC + 2).Value = Date lloRowAC = lloRowAC + 1 End If Next End With

Beliebteste Forumthreads (12 Monate)

VBA - kopieren & gemäß Zelle korrekt zuordnen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - kopieren & gemäß Zelle korrekt zuordnen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread