Thema Datum  Von Nutzer Rating
Antwort
05.10.2020 14:26:21 Karl
NotSolved
Blau If Ja, Zellen kopieren
 05.10.2020 15:06:58 Gast3815
NotSolved
05.10.2020 15:18:43 Karl
NotSolved
05.10.2020 15:11:12 Karl
NotSolved
05.10.2020 15:35:05 Gast54649
Solved
05.10.2020 16:03:32 Karl
NotSolved
05.10.2020 15:40:00 Gast61720
***
NotSolved
05.10.2020 16:04:10 Karl
NotSolved
05.10.2020 16:18:16 Gast92922
NotSolved

Ansicht des Beitrags:
Von:
Gast3815		 Datum:
05.10.2020 15:06:58		 Views:
499		 Rating:
     
Antwort:
  Ja
Thema:
If Ja, Zellen kopieren

Hallo,

probier mal so:

Public Sub test()
With Worksheets("Tabelle2")
    If LCase$(.Cells(3, 7).Value) = "x" Then
      Call Worksheets("Tabelle1").Range(Cells(5, 2), Cells(5, 18)).Copy(Destination:=.Cells(3, 13))
    Else
      .Cells(3, 7).Value = ""
    End If
End With
End Sub

Gruß,

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
05.10.2020 14:26:21 Karl
NotSolved
Blau If Ja, Zellen kopieren
 05.10.2020 15:06:58 Gast3815
NotSolved
05.10.2020 15:18:43 Karl
NotSolved
05.10.2020 15:11:12 Karl
NotSolved
05.10.2020 15:35:05 Gast54649
Solved
05.10.2020 16:03:32 Karl
NotSolved
05.10.2020 15:40:00 Gast61720
***
NotSolved
05.10.2020 16:04:10 Karl
NotSolved
05.10.2020 16:18:16 Gast92922
NotSolved