Thema Datum  Von Nutzer Rating
Antwort
08.02.2019 18:00:33 Chris
NotSolved
Blau Barrcode per VBA sortieren
 08.02.2019 19:14:26 Flotter Feger
NotSolved
09.02.2019 12:41:56 Gast0815
NotSolved
10.02.2019 00:02:45 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
08.02.2019 19:14:26		 Views:
497		 Rating:
     
Antwort:
  Ja
Thema:
Barrcode per VBA sortieren

Hallo,

Sub Aufteilen()
Dim arr As Variant
Dim sStr As String
Dim j As Long
Dim lRow As Long
Dim WS As Worksheet
 
arr = ActiveSheet.Range("A1") '<-- gescannt
sStr = VBA.Left(arr, 3)

If WorkSheetExists(sStr) Then
    Set WS = Worksheets(sStr)
Else
    Set WS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
    ActiveSheet.Name = sStr
End If
lRow = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1
WS.Cells(lRow, 1) = arr

End Sub
 
Function WorkSheetExists(ByVal WS As Variant) As Boolean
On Error Resume Next
WorkSheetExists = Not Worksheets(WS) Is Nothing
End Function

VG Sabina

PS: du bekommst hier von mir Hilfe, da im anderen Forum nur drumherumgeredet wird ... allerdings, teile bitte im anderen Forum mit, dass du hier ebenfalls gefragt und diesen Code bekommen hast. Tust du es nicht, werde ich deine Anfrage als CrossPost melden. Danke.

PPS: CrossPoster sind wie BesserWisser ... keiner mag mit BesserWissern spielen ...21

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
08.02.2019 18:00:33 Chris
NotSolved
Blau Barrcode per VBA sortieren
 08.02.2019 19:14:26 Flotter Feger
NotSolved
09.02.2019 12:41:56 Gast0815
NotSolved
10.02.2019 00:02:45 Flotter Feger
NotSolved