Thema Datum  Von Nutzer Rating
Antwort
13.10.2011 08:35:38 Birnenbaum
NotSolved
13.10.2011 09:22:47 till
NotSolved
13.10.2011 10:58:53 Gast10689
NotSolved
13.10.2011 11:03:16 Birnenbaum
NotSolved
13.10.2011 12:01:48 Birnenbaum
NotSolved
13.10.2011 12:41:16 Dekor
NotSolved
13.10.2011 12:56:19 Birnenbaum
NotSolved
Blau Wenn Wert größer 0 dann kopieren ohne Formeln
 13.10.2011 14:06:21 Dekor
NotSolved
13.10.2011 15:44:14 Birnenbaum
NotSolved
13.10.2011 16:20:27 Dekor
NotSolved
13.10.2011 23:06:08 Till
Solved
14.10.2011 07:28:43 Birnenbaum
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
13.10.2011 14:06:21		 Views:
1095		 Rating:
     
Antwort:
  Ja
Thema:
Wenn Wert größer 0 dann kopieren ohne Formeln

Hallo Birnenbaum,

dann ein bischen Debug-Arbeit mit Messagebox fällt mir jetzt so ein.

 

    For Each WS In ThisWorkbook.Worksheets
        With WS
            Select Case .Name
                Case "SAP" 'hier die Tabellen eintragen die nicht berücksichtigt werden
                Case Else
                    If Not IsEmpty(.UsedRange) Then
                        For Zeile = 120 To 130
 msgbox "Wert Zeile " & Zeile &  " = '" & .cells(Zeile,5) & "'"
                            If .Cells(Zeile, 5) > 0 Or .Cells(Zeile, 6) > 0 Then
                                .Rows(Zeile).Copy
                                WSz.Cells(n, 1).PasteSpecial (xlPasteValuesAndNumberFormats)
                                n = n + 1
                            End If
                    Next Zeile
                    End If
            End Select
        End With
    Next

oder mit anderen Mitteln

Gruß Detlev

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
13.10.2011 08:35:38 Birnenbaum
NotSolved
13.10.2011 09:22:47 till
NotSolved
13.10.2011 10:58:53 Gast10689
NotSolved
13.10.2011 11:03:16 Birnenbaum
NotSolved
13.10.2011 12:01:48 Birnenbaum
NotSolved
13.10.2011 12:41:16 Dekor
NotSolved
13.10.2011 12:56:19 Birnenbaum
NotSolved
Blau Wenn Wert größer 0 dann kopieren ohne Formeln
 13.10.2011 14:06:21 Dekor
NotSolved
13.10.2011 15:44:14 Birnenbaum
NotSolved
13.10.2011 16:20:27 Dekor
NotSolved
13.10.2011 23:06:08 Till
Solved
14.10.2011 07:28:43 Birnenbaum
NotSolved