MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 03.01.2018, 13:02   #1
Juragerb
MOF User
MOF User
Standard Frage - Freigabefunktion in eine Bestelliste implementieren

Hallo zusammen,

ich habe eine vorhandene Bestellliste in die ich eine Freigabe Funktion in einem eigenen Reiter einfügen möchte. Ich hab keine Ahnung wie ich das anstellen soll...

Die Bestellliste ist wiefolgt in Reiter aufgeteilt:

Artikelkatalog, In Arbeit, in Warteschlange, Bestellarchiv.
Der bestellte Artikel soll aus dem Katalog an einen Freigabereiter geleitet werden und von dort in den Reiter "in Arbeit" weitergeleitet werden.

Der Code sieht folgendermaßen aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then
If IsDate(Target.Value) Then
Application.EnableEvents = False
Rows(Target.Row).Copy Destination:=Worksheets("In Arbeit").Cells(Worksheets("In Arbeit").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Target.ClearContents 'Eingabe löschen
Target.Offset(0, -2).ClearContents 'Eingabe löschen
Application.EnableEvents = True
End If
End If
End Sub


Wäre für jede Hilfe sehr dankbar!!!
Juragerb ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 15:06   #2
Beverly
MOF Guru
MOF Guru
Standard

Hi,

und wo ist das Problem?


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.01.2018, 12:38   #3
Juragerb
Threadstarter Threadstarter
MOF User
MOF User
Standard

Das Problem ist, dass ich bisher nur mit fertigen Befehlen gearbeitet hab und nicht weiß wie sowas komplett aufgebaut wird.
Juragerb ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 05.01.2018, 14:05   #4
Beverly
MOF Guru
MOF Guru
Standard

Ich kann in deinem Code nicht erkennen, welches Problem es damit gibt - er läuft fehlerfrei und kopiert die Zeile ins Tabellenblatt "In Arbeit".


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.01.2018, 09:05   #5
Juragerb
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ja das ist die alte Funktion, ich hab jetzt einen Reiter "Check" erstellt in den die gesammte Zeile kopiert wird. Ab hier möchte ich, dass die Bestellung erst dann weitergeleitet wird wenn bei Freigabe ein Name eingegeben wurde. Zurzeit wird die Bestellung beim entern des Punktes "Bestellt am" weitergeleitet. Der Code sieht wie folgt aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 25 Then
If IsDate(Target.Value) Then
Worksheets("Check").Rows(Target.Row).Copy Destination:=Worksheets("In Arbeit").Cells(Worksheets("Check").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
'Worksheets("Check").Rows(Target.Row).Hidden = True 'ausblenden
Worksheets("Check").Rows(Target.Row).Delete 'löschen
End If
End If

End Sub
Juragerb ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.01.2018, 09:36   #6
Beverly
MOF Guru
MOF Guru
Standard

Zitat: von Juragerb Beitrag anzeigen

Ab hier möchte ich, dass die Bestellung erst dann weitergeleitet wird wenn bei Freigabe ein Name eingegeben wurde.


Dann musst du in diesem Blatt denselbsen Code verwenden, nur eben angepasst auf die Bedingung, dass in der entsprechenden Spalte "Bestellt am" eingegeben wird.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:34 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.