Thema Datum  Von Nutzer Rating
Antwort
21.12.2020 10:51:28 Niklas
NotSolved
21.12.2020 10:59:20 Gast89172
NotSolved
Rot Sehr Variables Makro Excel
21.12.2020 11:55:10 Gast10540
NotSolved
21.12.2020 15:28:29 Gast48905
NotSolved
21.12.2020 15:43:22 Gast68499
NotSolved
21.12.2020 19:23:20 Gast43097
NotSolved
17.02.2021 22:00:50 Gast76497
NotSolved

Ansicht des Beitrags:
Von:
Gast10540		 Datum:
21.12.2020 11:55:10		 Views:
647		 Rating:
     
Antwort:
  Ja
Thema:
Sehr Variables Makro Excel 
Option Explicit

Sub Test()
  
  Dim rngPNr As Excel.Range
  Set rngPNr = Worksheets("Tourenplan").Range("B2")
  
  With CreateObject("Scripting.Dictionary")
    
    'zu druckende Personalnummern ermitteln
    Do While rngPNr.Value <> ""
      If Not .Exists(rngPNr.Text) Then
        If rngPNr.Worksheet.Cells(rngPNr.Row, "G").Value <> "" Then
          Call .Add(Item:=rngPNr, Key:=rngPNr.Text)
        End If
      End If
      Set rngPNr = rngPNr.Offset(1)
    Loop
    
    'Personalnummern kopieren/drucken
    Dim vntPNr As Variant
    For Each vntPNr In .Items()
      
      Debug.Print vntPNr.Text, "["; vntPNr.Address(0, 0); "]"
      
      '<_vntPNr_kopieren_>
      '<_vntPNr_drucken_>
      
    Next
    
  End With
  
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
21.12.2020 10:51:28 Niklas
NotSolved
21.12.2020 10:59:20 Gast89172
NotSolved
Rot Sehr Variables Makro Excel
21.12.2020 11:55:10 Gast10540
NotSolved
21.12.2020 15:28:29 Gast48905
NotSolved
21.12.2020 15:43:22 Gast68499
NotSolved
21.12.2020 19:23:20 Gast43097
NotSolved
17.02.2021 22:00:50 Gast76497
NotSolved