Thema Datum  Von Nutzer Rating
Antwort
19.03.2020 19:25:11 BeinaheCacher
NotSolved
19.03.2020 20:17:17 Gast7933
NotSolved
19.03.2020 21:04:27 BeinaheCacher
NotSolved
Blau Makro mit Zellwert lesen und Zellwert schreiben
19.03.2020 23:27:56 tscharl
NotSolved
20.03.2020 03:11:50 BeinaheCacher
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
19.03.2020 23:27:56		 Views:
539		 Rating:
     
Antwort:
  Ja
Thema:
Makro mit Zellwert lesen und Zellwert schreiben 
Option Explicit

'Hallo Programmier-Profis, ich habe folgende wiederkehrende Aufgabe, aber keine Ahnung von Makros.
'In die VBA Umgebung bei Excel komme ich inzwischen.
'*****

Sub BeinaheCacher()
   'Gehe auf Sheet "A".
    'Setze Zelle J21 auf 0.00000.
    With Worksheets("A")
        .Range("J:J").NumberFormat = ("0.00000")
        .Range("J21").Value = 0
         'Schleife 1: Wenn Zelle J24 <0.00000 dann setze J21 +1.00000. Ende Schleife 1.
        If .Range("J24").Value < 0 Then
            .Range("J21").Value = 1
        End If
        ' Schleife 2: Wenn Zelle J24 >0.00000 dann setze Zelle J21 -0.10000. Ende Schleife 2.
        If .Range("J24").Value > 0 Then
            .Range("J21").Value = -0.1
        End If
    End With
    'Gehe auf Sheet "B".
    'Setze Zelle J21 auf 0.00000.
    With Worksheets("B")
        .Range("J:J").NumberFormat = ("0.00000")
        .Range("J21").Value = 0
        'Schleife 3: Wenn Zelle J24 <0.00000 dann setze J21 +1.00000. Ende Schleife 3.
        If .Range("J24").Value < 0 Then
            .Range("J21") = 1
        End If
        'Schleife 4: Wenn Zelle J24 >0.00000 dann setze Zelle J21 -0.10000. Ende Schleife 4.
        If .Range("J24").Value > 0 Then
            .Range("J21") = -0.1
        End If
    End With
    '***** Effektiv sind es mehr Sheets und ich iterierte auf 4 Nachkommastellen.
    'Aber das bekomme ich dann alleine hin wenn mir jemand den Quellcode fŸr den Teil oben geben kann. Vielen Dank im Voraus. BeinaheCacher
    
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
19.03.2020 19:25:11 BeinaheCacher
NotSolved
19.03.2020 20:17:17 Gast7933
NotSolved
19.03.2020 21:04:27 BeinaheCacher
NotSolved
Blau Makro mit Zellwert lesen und Zellwert schreiben
19.03.2020 23:27:56 tscharl
NotSolved
20.03.2020 03:11:50 BeinaheCacher
NotSolved