Thema Datum  Von Nutzer Rating
Antwort
04.02.2016 11:36:25 der neue
NotSolved
Blau VBA Code verkürzen
 04.02.2016 16:08:45 BigBen
NotSolved
05.02.2016 10:24:02 Gast21907
NotSolved
05.02.2016 14:09:04 Gast36194
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
04.02.2016 16:08:45		 Views:
1454		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code verkürzen

Hallo,

dieser Code ist etwas kürzer. Ob dieser auch schöner ausschaut, kann ich nicht beurteilen:

    Dim iRow as integer
    If werk.cmbwerk.Text = "Wittenberge" And werk.cmbmonat.Text = "Dezember" Then
        With ActiveWorkbook.Worksheets("Dateneingabe")
            .Range("AM21").Value = rm.txtrisikengesamtp.Value
            .Range("AN21").Value = rm.txtrisikengesamtr.Value
            .Range("AO21").Value = rm.txtrisikengesamtk.Value
            .Range("AP21").Value = rm.txtprojektev.Value
            .Range("AQ21").Value = rm.txtrevisionenv.Value
            .Range("AR21").Value = rm.txtkomponentenv.Value
        End With
        With ActiveWorkbook.Worksheets("Dateneingabe Risiken")
            For iRow = 23 To 25
                .Cells(iRow, 39).Value = rm.txtferngeringrm.Value
                '.Range("AU39").Value =
                .Cells(iRow, 40).Value = rm.txtregiogeringrm.Value
                .Cells(iRow, 41).Value = rm.txtexterngeringrm.Value
                .Cells(iRow, 42).Value = rm.txtlieferantengeringrm.Value
            Next
        End With
    End If

LG, BigBen

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
04.02.2016 11:36:25 der neue
NotSolved
Blau VBA Code verkürzen
 04.02.2016 16:08:45 BigBen
NotSolved
05.02.2016 10:24:02 Gast21907
NotSolved
05.02.2016 14:09:04 Gast36194
NotSolved