Verknüpfungen und Zellinhalt addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer, vielen Dank für Deine Zeit. Also ausführlicher:
Tabelle 1 - man könnte es auch Lager nennen, hat einen Artikelbestand (Tabelle 1 Spalte A),Lagerbestand Anzahl (Tabelle1 Spalte B). In der darüberliegenden Zeile steht das fortlaufende Datum, so das in der Spalte ( unter dem Datum) der aktuelle Lagerbestand für das jeweilige Datum steht.
In Tabelle 2 steht in Spalte A (ebenfalls wie in Tabelle 1 die Artikel) und in Spalte B die Anzahl der zu vermietenden Artikel. In z.B. C1 steht das Datum der Vermietung und in C2 das Datum der Rücklieferung( natürlich in Tabelle 2). Und nun will ich per Button das in Tabelle 1 das Datum (C1 aus Tabelle 2)gesucht wird und anschließend die zu vermietenden Artikel ausgebucht werden. Am Datum (C2 Tabelle2)werden die Artikel wieder ins Lager zurückgebucht. Ich hoffe Du verstehst jetzt mein Anliegen. Bis dann
Thomas
per "Hand" geht es natürlich, aber wozu gibt es Makro´s

Hallo Ramses,
Vielleicht hast Du ja irgendwann die Minute
Anbei mein Makro, allerdings für '


Sub a  Inhalte einfügen substrahieren und '

Sub b Inhalte addieren
Und jetzt dachte ich, daß man anstelle der Inhalte einfügen eine Verknüpfung erstellen kann. Das muß doch gehen oder??? Ich weiß aber absolut nicht wie. Bin auch noch Anfänger und schon ziemlich stolz, daß ich das hier geschafft habe.
Es muß also nicht nacht Artikel gesucht werden, da der ganze Bereich kopiert wird und nach der Datumssuche  habe ich ein funktionierendes Makro. Evtl. etwas unelegant gelöst mit: sendkeys {down},true um die richtige Zeile zu erwischen....
Ich danke Dir für Deine Mühe
Gruß  Thomas

Sub date_aus()
Sheets("Angebot").Select
Dim t As Date
t = Range("a2")
If t = Empty Then
MsgBox "fehler"
Exit Sub
End If
If Not IsDate(Range("a2").Value) Then
MsgBox "kein datum"
Exit Sub
End If
Range("B8:B17").Select
Selection.Copy
Sheets("Lager").Select
Range("A6").Select
Call Cells.Find(what:=t, after:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlWhole, _
searchorder:=xlRows, _
searchdirection:=xlNext, MatchCase:=False).Activate
SendKeys "{down}", True
a
End Sub



Sub a()
Selection.PasteSpecial Paste:=xlAll, Operation:=xlSubtract, SkipBlanks:=False _
, Transpose:=False
date_in
End Sub



Sub date_in()
Sheets("Angebot").Select
Dim t As Date
t = Range("a5")
If t = Empty Then
MsgBox "fehler"
Exit Sub
End If
If Not IsDate(Range("a5").Value) Then
MsgBox "kein datum"
Exit Sub
End If
Range("B8:B17").Select
Selection.Copy
Sheets("Lager").Select
Range("A6").Select
Call Cells.Find(what:=t, after:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlWhole, _
searchorder:=xlRows, _
searchdirection:=xlNext, MatchCase:=False).Activate
SendKeys "{down}", True
b
End Sub



Sub b()
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _
, Transpose:=False
Sheets("Angebot").Select
Range("a2").Select
End Sub

Beliebteste Forumthreads (12 Monate)

Verknüpfungen und Zellinhalt addieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread