Thema Datum  Von Nutzer Rating
Antwort
22.10.2020 05:14:42 Nico
Solved
22.10.2020 11:25:58 volti
Solved
22.10.2020 14:18:37 Gast844
NotSolved
22.10.2020 14:50:13 volti
NotSolved
22.10.2020 16:01:31 Gast63776
NotSolved
22.10.2020 16:47:00 volti
NotSolved
22.10.2020 17:36:12 Gast42455
NotSolved
Blau Speichern von Werte in einer Zelle
22.10.2020 18:11:41 volti
NotSolved
22.10.2020 19:19:21 Gast33282
NotSolved
23.10.2020 08:28:01 Gast85254
NotSolved
23.10.2020 08:56:43 volti
NotSolved
23.10.2020 11:16:46 Nico
NotSolved
23.10.2020 11:49:25 volti
*****
NotSolved
23.10.2020 12:47:13 Nico
NotSolved
23.10.2020 14:11:49 volti
NotSolved
23.10.2020 15:26:21 Nico
NotSolved
23.10.2020 15:55:45 volti
NotSolved
23.10.2020 16:41:09 Nico
Solved
23.10.2020 16:47:53 volti
NotSolved
23.10.2020 08:25:38 Bernd
NotSolved
23.10.2020 08:34:41 Nico
NotSolved
23.10.2020 11:09:03 Gast51918
NotSolved
23.10.2020 11:12:30 Bernd
NotSolved
23.10.2020 11:40:01 volti
NotSolved

Ansicht des Beitrags:
Von:
volti
Datum:
22.10.2020 18:11:41
Views:
713
Rating: Antwort:
  Ja
Thema:
Speichern von Werte in einer Zelle

Hallo,

wie sieht es so aus?

Oder möchtest Du das lieber ablaufen lassen, wenn das Blatt aktiviert wird.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
 
'Dieses hier in "DieseArbeitsmappe"
Private Sub Workbook_Open()
'Übernimmt nach Öffnen der Mappe für den aktuellen Monat den Wert von $M nach $N
 Dim rZelle As Range
   
 For Each rZelle In Range("L11:L22")
'Verändert wird nur der aktuelle Monat
    With rZelle
      If Val(.Value) = Val(Format$(Date, "m")) Then    'Nur aktuellen Monat bearbeiten
           
          If .Offset(0, 1).Value > 0 Then              'Nur Wert>0 in Spalte $M
             .Offset(0, 2).Value = .Offset(0, 1).Value 'nach Spalte $N übertragen
          End If
     
      End If
    End With
 Next rZelle
   
End Sub

 

viele Grüße

Karl-Heinz


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
22.10.2020 05:14:42 Nico
Solved
22.10.2020 11:25:58 volti
Solved
22.10.2020 14:18:37 Gast844
NotSolved
22.10.2020 14:50:13 volti
NotSolved
22.10.2020 16:01:31 Gast63776
NotSolved
22.10.2020 16:47:00 volti
NotSolved
22.10.2020 17:36:12 Gast42455
NotSolved
Blau Speichern von Werte in einer Zelle
22.10.2020 18:11:41 volti
NotSolved
22.10.2020 19:19:21 Gast33282
NotSolved
23.10.2020 08:28:01 Gast85254
NotSolved
23.10.2020 08:56:43 volti
NotSolved
23.10.2020 11:16:46 Nico
NotSolved
23.10.2020 11:49:25 volti
*****
NotSolved
23.10.2020 12:47:13 Nico
NotSolved
23.10.2020 14:11:49 volti
NotSolved
23.10.2020 15:26:21 Nico
NotSolved
23.10.2020 15:55:45 volti
NotSolved
23.10.2020 16:41:09 Nico
Solved
23.10.2020 16:47:53 volti
NotSolved
23.10.2020 08:25:38 Bernd
NotSolved
23.10.2020 08:34:41 Nico
NotSolved
23.10.2020 11:09:03 Gast51918
NotSolved
23.10.2020 11:12:30 Bernd
NotSolved
23.10.2020 11:40:01 volti
NotSolved