Thema Datum  Von Nutzer Rating
Antwort
15.10.2012 22:59:57 trulla1411
NotSolved
16.10.2012 13:10:13 Dekor
NotSolved
16.10.2012 15:19:11 Gast97774
NotSolved
17.10.2012 12:37:47 Dekor
NotSolved
Rot Anfängerin hat Probleme mit Userform und Co
 17.10.2012 12:42:16 Dekor
NotSolved
19.10.2012 21:47:34 trulla1411
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
17.10.2012 12:42:16		 Views:
2020		 Rating:
     
Antwort:
  Ja
Thema:
Anfängerin hat Probleme mit Userform und Co

Hallo Tine,

war jetzt wieder mal zu schnell, so sollte es besser klappen...

 

Private Sub uebernehmen_Click()
   Dim letzteZeile As Integer
   Dim rng As Range

   Set rng = Worksheets("Seriennummernverwaltung").Range("C3:C65000").Find(What:=Seriennummer.Value, LookAt:=xlWhole, LookIn:=xlValues)

   Range("A65536").End(xlUp).Select
   letzteZeile = ActiveCell.Row + 1

   ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 1) = Auftragsnummer.Value
   ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 2) = Kartonnummer.Value

   If Not rng Is Nothing Then
      MsgBox "Diese Seriennummer ist bereits gelistet."
   Else
      ThisWorkbook.Sheets("Seriennummernverwaltung").Cells(letzteZeile, 3) = Seriennummer.Value
   End If
 
   'UserForm1.Hide
   Auftragsnummer.Value = ""
   Seriennummer.Value = ""
   Kartonnummer.Value = ""
   Set rng = Nothing
End Sub

Gruß Detlev

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
15.10.2012 22:59:57 trulla1411
NotSolved
16.10.2012 13:10:13 Dekor
NotSolved
16.10.2012 15:19:11 Gast97774
NotSolved
17.10.2012 12:37:47 Dekor
NotSolved
Rot Anfängerin hat Probleme mit Userform und Co
 17.10.2012 12:42:16 Dekor
NotSolved
19.10.2012 21:47:34 trulla1411
NotSolved