Thema Datum  Von Nutzer Rating
Antwort
27.03.2015 19:57:08 querdenker
*****
Solved
Blau schleifen abfrage
 28.03.2015 10:31:52 Gast68120
*****
Solved
28.03.2015 10:32:58 Gast82167
NotSolved
28.03.2015 20:27:27 querdenker
NotSolved
29.03.2015 09:40:23 Gast81655
NotSolved
28.03.2015 10:37:14 MarkusK
*****
Solved

Ansicht des Beitrags:
Von:
Gast68120		 Datum:
28.03.2015 10:31:52		 Views:
973		 Rating:
     
Antwort:
 Nein
Thema:
schleifen abfrage

Schätze mal so:

?
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
Option Explicit
 
Sub Bsp()
   
  Dim merker As Integer
  Dim i As Long
   
  merker = 0
   
  Application.ScreenUpdating = False
   
  For i = 24 To 20 Step -1
     
    If (Cells(i, 13) > 0) Then
       
      Cells(i, 13).Copy
      Worksheets("BP Übersicht").Range("B8").PasteSpecial Paste:=xlPasteValues
      Worksheets("BP Übersicht").Range("B5").PasteSpecial Paste:=xlPasteValues
       
      Cells(i, 9).Copy
      Worksheets("BP Übersicht").Range("B9").PasteSpecial Paste:=xlPasteValues
       
      merker = merker + 1
    End If
     
  Next
   
  If merker = 0 Then
     
    Worksheets("BP Übersicht").Activate
    Worksheets("BP Übersicht").Range("B5").Value = "Kein Kessel angeschlossen"
     
  ElseIf merker = 1 Then  'wozu das
    merker = merker - 1   'noch behandeln?
  End If
   
  Worksheets("BP1 Standzeit-Abfüllzeit").Activate
   
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
   
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
27.03.2015 19:57:08 querdenker
*****
Solved
Blau schleifen abfrage
 28.03.2015 10:31:52 Gast68120
*****
Solved
28.03.2015 10:32:58 Gast82167
NotSolved
28.03.2015 20:27:27 querdenker
NotSolved
29.03.2015 09:40:23 Gast81655
NotSolved
28.03.2015 10:37:14 MarkusK
*****
Solved