Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beträge kopieren - ABS (Funktion)

Beträge kopieren - ABS (Funktion)
16.06.2019 16:17:14
Markus
Liebes Forum,
wie muss ich den angehängten Code anpassen. Damit nur Beträge (positive Zahlen) kopiert werden.
Sprich, von "ws_con" in "ws_total"
Weiß leider nicht, wo und wie ich die "ABS-Funktion" integrieren soll.
Public Sub Kopieren ()
Dim wb_con As Workbook  'Quelle
Dim wb_total As Workbook  'Ziel
Dim ws_total As Worksheet  'Ziel
Dim ws_con As Worksheet 'Quelle
Dim strPeriode As String
On Error Resume Next
Set wb_total = Workbooks("xyz.xlsm")
On Error GoTo 1
If wb_total Is Nothing Then
Workbooks.Open "\\...."
End If
1
Set wb_con = ThisWorkbook
Set ws_total = Workbooks("xyz.xlsm").Worksheets("xx")
strPeriode = Workbooks("zyx.xlsm").Worksheets("xy").Range("AM2")
Application.ScreenUpdating = False
i = ws_total.Range("A10000").End(xlUp).Row + 1
For Each ws_con In wb_con.Worksheets
If ws_con.Range("DJ5") = "Datum" Then
If ws_con.Range("DJ6")  "" Then
ws_total.Range("A" & i).Value = ws_con.Range("H4").Value
ws_total.Range("B" & i).Value = ws_con.Range("DJ5").Value
Else: GoTo 0
End If
End If
i = i + 1
0
Next
Application.ScreenUpdating = True
End Sub

Vielen Dank euch!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beträge kopieren - ABS (Funktion)
16.06.2019 16:20:47
Hajo_Zi
im Code wird nichts kopiert.

if ws_con.Range("H4")>0 Then
ws_total.Range("A" & i) = ws_con.Range("H4")
End if


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige