Thema Datum  Von Nutzer Rating
Antwort
09.01.2015 16:04:39 Gast98245
NotSolved
09.01.2015 17:45:18 Gast33269
NotSolved
Rot Seite Drucken
 09.01.2015 17:50:06 Gast
NotSolved

Ansicht des Beitrags:
Von:
Gast		 Datum:
09.01.2015 17:50:06		 Views:
716		 Rating:
     
Antwort:
  Ja
Thema:
Seite Drucken

Hallo T-.-T,

kopier dier diese Funktion in ein Modul:

Public Function Nummer_rauslösen(Nr As String) As Integer
    Dim i As Integer, ST As String
    
    For i = Len(Nr) To 1 Step -1
        If Mid(Nr, i, 1) Like "[0-9]" Then ST = Mid(Nr, i, 1) & ST
        If Mid(Nr, i, 1) = " " Then
            Nummer_rauslösen = Int(ST)
            Exit Function
        End If
    Next i
End Function

Dann brauchst du nur noch das hier in deinem Makro zum Drucken.

With Sheets("Team " And Nummer_rauslösen(ComboBox1.Text))
        'Druckbereich festlegen:
        .PageSetup.PrintArea = "$A$2:$M$32"
        'Drucken:
        .PrintOut
    End With

 

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
09.01.2015 16:04:39 Gast98245
NotSolved
09.01.2015 17:45:18 Gast33269
NotSolved
Rot Seite Drucken
 09.01.2015 17:50:06 Gast
NotSolved