Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datum schreiben Wenn Wert in der Zelle Else....
 16.02.2022 15:41:58 Milena
Solved
17.02.2022 07:26:16 Milena
NotSolved
17.02.2022 10:47:54 Gast68363
Solved
17.02.2022 14:01:03 Milena
Solved

Ansicht des Beitrags:
Von:
Milena		 Datum:
16.02.2022 15:41:58		 Views:
679		 Rating:
     
Antwort:
 Nein
Thema:
VBA Datum schreiben Wenn Wert in der Zelle Else....

Hallo Zusammen,

ich würde gerne mit einer IF Abfrage das Datum aus einer Zelle in eine Zielzelle(lgnZeile,34) schreiben und wenn in der Zelle kein Datum steht in der Zelle-1(also eins links daneben) prüfen ob da ein Datum steht und dann dieses Datum in die Zielzelle schreiben usw.

Kann mir jemand helfen erklären, wie man diese Abfrage richtig schreibt?

Einen Ausschnitt meiner Tabelle füge ich anbei, ich hoffe das erklärt meine Fragestellung etwas besser.

Danke und viele Grüße

Milena

Teil Liefertermin 1 Teil Liefertermin 2 Teil Liefertermin 3 Teil Liefertermin 4 Teil Liefertermin 5 Teil Liefertermin 6 Teil Liefertermin 7

Teil Liefertermin 8

Spalte 33

IST Lieferdatum

Spalte 34
03.06.19 06.06.19 18.06.19 27.06.19          
03.06.19 06.06.19 13.06.19 18.06.19 27.06.19        
03.06.19 06.06.19 13.06.19 18.06.19 27.06.19 29.06.19 01.07.19   05.07.19    


 

Sub DatumAuswahl()

Dim lgnZeile As Long
Dim lgnSpaltenNummer As Long

lgnSpaltenNummer = 33 'in Spalte 33 möchte ich beginnen

For lgnZeile = 178 To 180 'dies ist nur mein Auswahlbereich um den code zu testen (eigentlich soll der Code von Zeile 1 bis 1700 laufen)

If Sheets("Tabelle1").Cells(lgnZeile, lgnSpaltenNummer) = " " And lgnSpaltenNummer >= 29 Then
       lgnSpaltenNummer = lgnSpaltenNummer - 1
    Else
        Cells(lgnZeile, 34) = Cells(lgnZeile, lgnSpaltenNummer)
        lgnSpaltenNummer = lgnSpaltenNummer - 1
End If
   
Next lgnZeile

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
Rot VBA Datum schreiben Wenn Wert in der Zelle Else....
 16.02.2022 15:41:58 Milena
Solved
17.02.2022 07:26:16 Milena
NotSolved
17.02.2022 10:47:54 Gast68363
Solved
17.02.2022 14:01:03 Milena
Solved