Thema Datum  Von Nutzer Rating
Antwort
Rot Formel will einfach nicht funktionieren
21.07.2016 15:24:40 Alexander
NotSolved
21.07.2016 21:15:11 Werner Ebner
NotSolved

Ansicht des Beitrags:
Von:
Alexander		 Datum:
21.07.2016 15:24:40		 Views:
1189		 Rating:
     
Antwort:
  Ja
Thema:
Formel will einfach nicht funktionieren

Hi Leute brauch mal wieder Hilfe

ich habe einen code der anfangs einen eintrag finden soll und dann so lange in der zeile nach unten springen soll bis er eine leere Zelle findet

ich habe es so vorgesehen das es immer 3 abschnitte gibt bevor ein neuer eintrag eingetragen werden soll daher muss die schleife immer 3 zellen auf einmal überspringen um dann zu prüfen ob die zelle leer ist und die neuen daten von der maske einzutragen neben bei soll noch ein gesamt auswertung der 3 zelle stattfinden um am ende auf eine gemeinste stunden zahl zu kommen

hoffe man konnte es verstehen und würde mich freuen wenn mir jemande dabei helfen könnte meinen fehler zu finden

denn ich seh so langsam den wald vor lauter bäumen nicht mehr

Gruß Alex

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
     lZeile = 3  'Start in Zeile 3
     Spalte1 = 2 'Startet in Spalte 4
     ZeilenSprung = 0
     Fehlzeiten = 0
     Fehlzeit = 0
      
          'Sucht nach Eintrag in der Spalte
     Do While Trim(CStr(Tabelle1.Cells(lZeile, Spalte1).Value)) <> ""
     
         'Vergleicht ListBox Eintrag und Tabellen Eintrag
         If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, Spalte1).Value)) Then
             
         
             'Eintrag gefunden, die ganze Spalte wird nun geschrieben
             Tabelle1.Cells(lZeile, Spalte1) = TextBox1.Text
              
             Do While Trim(CStr(Tabelle1.Cells(lZeile + 1 + ZeilenSprung, Spalte1).Value)) = ""
              
             Fehlzeit = Tabelle1.Cells(lZeile + 4 + ZeilenSprung, Spalte1).Value
             Fehlzeiten = Fehlzeit + Fehlzeiten
             TextBox5 = Fehlzeiten
              
             If Trim(CStr(Tabelle1.Cells(lZeile + 1 + ZeilenSprung, Spalte1).Value)) = "" Then
              
             Tabelle1.Cells(lZeile + 1 + ZeilenSprung, Spalte1) = TextBox2.Text
             Tabelle1.Cells(lZeile + 2 + ZeilenSprung, Spalte1) = TextBox3.Text
             Tabelle1.Cells(lZeile + 3 + ZeilenSprung, Spalte1) = TextBox4.Text
              
             Else
              
             ZeilenSprung = ZeilenSprung + 3
              
             Loop
             
             'ListBox neu laden
             Call UserForm_Initialize
             If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
             End If
              
          
         'Nächste Spalte bearbeiten
         Spalte1 = Spalte1 + 1
          
     Loop
      
 End If
      
      
     
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Formel will einfach nicht funktionieren
21.07.2016 15:24:40 Alexander
NotSolved
21.07.2016 21:15:11 Werner Ebner
NotSolved