Thema Datum  Von Nutzer Rating
Antwort
27.04.2011 12:52:13 Faye
NotSolved
27.04.2011 15:23:55 Severus
NotSolved
27.04.2011 15:47:52 Gast23480
NotSolved
27.04.2011 16:36:04 Severus
NotSolved
27.04.2011 16:43:40 Faye
NotSolved
27.04.2011 17:02:05 Severus
NotSolved
28.04.2011 06:57:58 Faye
NotSolved
Blau Laufzeitfehler 1004
 28.04.2011 07:42:00 Severus
NotSolved
28.04.2011 07:48:24 Faye
NotSolved
28.04.2011 11:21:48 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
28.04.2011 07:42:00		 Views:
960		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 1004

Trenn die If-Bedingungen mal auf:

Option Explicit

Sub Kosten()
  
Dim lngKosten As Long
Dim cRAG As Long
Dim Zelle As Range
Dim lngOffset As Long

lngKosten = 0
cRAG = 2
  
Debug.Print ActiveSheet.Name
Sheets.Add
ActiveSheet.Name = "Kosten gesamt"
  
Sheets("Ressourcenarten").Cells(1, 1) = "gesamte Kosten"
  
Sheets("Auswertung").Activate
With ActiveSheet
    'zählt wie oft das Wort "Kosten" in Tabelle "Auswertung" vorkommt
    lngKosten = WorksheetFunction.CountIf(.UsedRange.Columns(5), "Kosten:")
    For Each Zelle In .UsedRange.Columns(5)
      If Zelle = "Kosten:" Then
        If cRAG < lngKosten * 5 Then
              For lngOffset = 1 To 5
                  If Not IsEmpty(Zelle.Offset(lngOffset, 0)) Then
                      Sheets("Kosten gesamt").Cells(cRAG, 1) = Zelle.Offset(lngOffset, 0)
                      cRAG = cRAG + 1
                  End If
              Next lngOffset
        End If
      End If
    Next Zelle
End With
Sheets("Kosten gesamt").Activate
ActiveSheet.Columns("A:A").AutoFit
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
27.04.2011 12:52:13 Faye
NotSolved
27.04.2011 15:23:55 Severus
NotSolved
27.04.2011 15:47:52 Gast23480
NotSolved
27.04.2011 16:36:04 Severus
NotSolved
27.04.2011 16:43:40 Faye
NotSolved
27.04.2011 17:02:05 Severus
NotSolved
28.04.2011 06:57:58 Faye
NotSolved
Blau Laufzeitfehler 1004
 28.04.2011 07:42:00 Severus
NotSolved
28.04.2011 07:48:24 Faye
NotSolved
28.04.2011 11:21:48 Severus
NotSolved