Thema Datum  Von Nutzer Rating
Antwort
14.12.2017 09:56:56 Andi
NotSolved
14.12.2017 13:50:12 Gast70684
NotSolved
14.12.2017 14:24:22 Andi
NotSolved
Blau "Ladebalken
 14.12.2017 20:30:07 SJ
NotSolved
14.12.2017 20:54:14 RPP63
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
14.12.2017 20:30:07		 Views:
618		 Rating:
     
Antwort:
  Ja
Thema:
"Ladebalken

Versuch es einmal so:

Option Explicit

Public Sub deineRoutine() 
	Dim i As Integer
	Dim Z As Integer
	Dim suchwert As String
	 
	For Z = 2 To 144
		showProgress "Prozess läuft, bitte warten..", 2, i, 144
		suchwert = Worksheets("Teile").Cells(Z, 3)
		For i = 2 To 5000
			If Worksheets("Daten").Cells(i, 14) Like suchwert Then
				Worksheets("Daten").Cells(i, 29) = Worksheets("Teile").Cells(Z, 2)
			End If
		Next
	Next
	
	Application.StatusBar = vbNullString
End Sub
 
Public Sub showProgress(ByVal sTitle As String, ByVal lMin As Long, ByVal lValue As Long, ByVal lMax As Long)
    Dim s As String, b As String
    Dim d As Double
    Dim i As Integer, j As Integer
     
    s = sTitle & " |"
    d = lValue / (lMax - lMin)
    i = d * 100 / 10
     
    For j = 1 To i
        b = b & "-"
    Next j
     
    b = b & ">"
     
    For j = 1 To 10 - i
        b = b & "*"
    Next j
     
    s = s & b
    s = s & "| " & Format(d, "##0.00 %")
     
    Application.StatusBar = s
End Sub

Viele Grüße

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
14.12.2017 09:56:56 Andi
NotSolved
14.12.2017 13:50:12 Gast70684
NotSolved
14.12.2017 14:24:22 Andi
NotSolved
Blau "Ladebalken
 14.12.2017 20:30:07 SJ
NotSolved
14.12.2017 20:54:14 RPP63
NotSolved