Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA
25.05.2022 13:02:27 FD
NotSolved
25.05.2022 13:11:51 Gast75
NotSolved
25.05.2022 15:11:13 Gast58845
NotSolved
25.05.2022 17:19:16 ralf_b
NotSolved
25.05.2022 17:35:28 ralf_b
NotSolved
25.05.2022 17:43:57 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
FD
Datum:
25.05.2022 13:02:27
Views:
141
Rating: Antwort:
  Ja
Thema:
Excel VBA

Hallo zusammen,

ich probiere erstmalig eine Exceltabelle mit Hilfe von VBA zu füllen. 

Ich habe ein Tabellenblatt in dem Lageraufträge eingegeben und automatisch gedruckt werden sollen.

Soweit auch alles kein Problem.

Meine Problematik sieht jetzt wie folgt aus:

Jetzt möchte ich die einzelnen Aufträge aber auf einem gesonderten Tabellenblatt "Übersicht_Lageraufträge" nacheinander auflisten. 

Sobald ich auf den Button "Übernehmen" klicke sollen die Daten in der Tabelle gelistet werden. Dies funktioniert auch einmalig. 

Sobald ich neue Daten übertragen möchte, die in der Tabelle dann als nächstes gelistet werdn sollen, bekomme ich ein Fehler. 

Kann mir einer Tipps geben wo der Fehler liegt:

Sub Daten_Übertragen_Makro_1()

Dim Nummer As String
Dim Priorität As String
Dim Baugruppe As String
Dim Kostenstelle As String
Dim Serialnummer As String
Dim Auftrag As String
Dim Aufragsposition As String
Dim Zusatz As String
Dim Kommissionieren As String
Dim Vorkommissionieren As String
Dim Vorkommissioniert As String
Dim Liefern As String
Dim Fehlteile As String
Dim Bemerkung As String


Worksheets("Lagerauftrag").Select
Nummer = Range("C2")
Priorität = Range("C3")
Baugruppe = Range("C5")
Kostenstelle = Range("C7")
Serialnummer = Range("C9")
Auftrag = Range("C11")
Auftragsposition = Range("C13")
Zusatz = Range("C15")
Kommissionieren = Range("C16")
Vorkommissionieren = Range("C17")
Vorkommissioniert = Range("C18")
Liefern = Range("C19")
Fehlteile = Range("C20")
Bemerkung = Range("C22")


Worksheets("Übersicht_Lageraufträge").Select
Worksheets("Übersicht_Lageraufträge").Range("A1").Select
If Worksheets("Übersicht_Lageraufträge").Range("A1").Offset(1, 0) <> "" Then
Worksheets("Übersicht_Lageraufträge").Range("A1").End(x1Down).Select
End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Nummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Auftrag
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Auftragsposition
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Baugruppe
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kostenstelle
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Serialnummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kommissionieren
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorkommissioniert
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorkommissionieren
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Liefern
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Fehlteile
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Bemerkung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Priorität
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zusatz

End Sub
 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA
25.05.2022 13:02:27 FD
NotSolved
25.05.2022 13:11:51 Gast75
NotSolved
25.05.2022 15:11:13 Gast58845
NotSolved
25.05.2022 17:19:16 ralf_b
NotSolved
25.05.2022 17:35:28 ralf_b
NotSolved
25.05.2022 17:43:57 Gast7777
NotSolved