Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Makro - Vergleichen und Übertragen
#1
Hallo Excel Freund

Ich suche eine Makro Zeile Wo folgendes Machen soll:

in dieser Zelle:
Code:
Cells(Target.Row,5) = 'Hier Fehlt mir den Code!
Soll ein Datum Rein.

Wenn ich z.B.: in zelle H12 eine 1 stehen habe, und ich jetzt in zelle H15 eine 1 eintrage soll
Das Datum aus der Zeile 12 in Spalte E ausgelesen werden und wieder Zeile 15 Spalte E (Monat + 1) wieder gegeben werden.

Kann mir da jemand bitte Helfen?

MfG BD
to top
#2
Hallo,

man könnte schreiben wohl schreiben

Code:
Cells(Target.Row + 3, 5) = DateAdd("m", 1, Cells(Target.Row, 5))
Gruß Stefan
Win 7 / Office 2007
to top
#3
Hallo Stefan

Danke für deine Antwort. es geht nicht so wie gewünscht

Ich habe seit gestern Abend mir den Kopf zerbrochen wie es gehn könnte
und heute Früh ist mir die Lösung eingefallen.

Das Datum wo ich suche gebe ich im Makro in eine Zelle ab und bei der nächsten 1 soll Das Datum + 1 Monat aus der
Zelle Geholt werden und in der Letzten Spalte E eingefügt werden.

Das sieht so aus:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("H11:H130")) Is Nothing Then Exit Sub
Select Case Target.Value
   Case 0
       Cells(Target.Row, 5) = ""
   Case 1
       If Cells(11, 5) = "" Then
           Cells(Target.Row, 5) = (Cells(8, 6))
           Cells(8, 10) = (Cells(Target.Row, 5))
       Else
           Cells(Target.Row, 5) = DateSerial(Year(Cells(8, 10)), Month(Cells(8, 10)) + 1, Day(Cells(8, 10)))
           Cells(8, 10) = (Cells(Target.Row, 5))
       End If
End Select
End Sub
Das geht nur weil ich das Datum J8 Habe.

Ich danke trozdem für deine Beitrag!

Mfg BD
to top
#4
Hallo,

wieso setzt Du das Cells immer in Klammern? Ich an deiner Stelle würde auch die Ereignisse abschalten, da ein Zelleintrag bzw. -löschung das Change-Ereignis nochmals aufruft.
Gruß Stefan
Win 7 / Office 2007
to top
#5
(13.04.2015, 09:07)Steffl schrieb: Hallo,

wieso setzt Du das Cells immer in Klammern? Ich an deiner Stelle würde auch die Ereignisse abschalten, da ein Zelleintrag bzw. -löschung das Change-Ereignis nochmals aufruft.

Ok man lernt ja nie aus.
Meinst du das so mit der Klammer?

Code:
Cells(8, 10) = Cells(Target.Row, 5)


Und wie schalte ich die Ergebnisse ab?
to top
#6
Hi,

(13.04.2015, 11:20)BadDog81 schrieb: Und wie schalte ich die Ergebnisse ab?

Application.EnableEvents = False

und am Ende:

Application.EnableEvents = True
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#7
Ich Danke euch für eure Hilfe!
to top
#8
Hallo,


Zitat:Meinst du das so mit der Klammer?


Code:

Code:
Cells(8, 10) = Cells(Target.Row, 5)
ja, so meinte ich es-
Gruß Stefan
Win 7 / Office 2007
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  VBA Makro Zwei Tabellen vergleichen und Änderungen übernehmen Exceljunge 9 160 28.10.2016, 14:23
Letzter Beitrag: Gast 123
  Mit Makro Werte aus einem Tabellenblatt übertragen prbtiger 1 256 13.07.2016, 16:42
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste