Thema Datum  Von Nutzer Rating
Antwort
Rot Problem mit Wennformeln
13.03.2019 10:05:42 Emre
NotSolved
13.03.2019 11:53:25 Gast94501
NotSolved
13.03.2019 12:15:23 Emre
NotSolved
13.03.2019 12:18:23 Emre
NotSolved
13.03.2019 13:00:15 Gast61522
NotSolved
13.03.2019 13:15:44 Emre
NotSolved
13.03.2019 13:34:09 Gast86790
NotSolved
13.03.2019 13:36:50 Gast57354
NotSolved
13.03.2019 13:38:45 Emre
NotSolved
13.03.2019 14:20:17 Gast93909
NotSolved
13.03.2019 13:41:19 Gast48471
NotSolved
13.03.2019 13:51:18 Emre
NotSolved
13.03.2019 15:17:53 Gast39632
*****
NotSolved
13.03.2019 15:23:23 Gast19601
NotSolved
13.03.2019 15:36:58 Emre
Solved
13.03.2019 15:28:49 Emre
NotSolved
13.03.2019 16:46:51 Gast13790
NotSolved
20.03.2019 13:54:21 Emre
NotSolved

Ansicht des Beitrags:
Von:
Emre
Datum:
13.03.2019 10:05:42
Views:
50
Rating: Antwort:
  Ja
Thema:
Problem mit Wennformeln

Hallo zusammen,

 

ich habe ein Problem mit folgendem Makro.

Sub VerpackungsartVervollständigen()
'
' Makro2 Makro
'
Dim letzteZeile As Long

    letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row

    Range("R2").FormulaR1C1 = "=+IF(Range("M2")=""1"",""1180x780x1100"",IF(Range("M2")=""2"",""1180x780x1100"",IF(Range("G2")=""190"",""190x140x100"",IF(Range("G2")=""290K"",""290x190x100"",IF(Range("G2")=""290G"",""290x190x150"",IF(Range("G2")=""305"",""305x225x124"",IF(Range("G2")=""390M"",""390x290x100"",IF(Range("G2")=""390G"",""390x290x200"",IF(Range("G2")=""394"",""394x194x220"",IF(Range("G2")=""530K"",""530x190x115"",IF(Range("G2")=""530M"",""530x190x230"",IF(Range("G2")=""530G"",""530x380x230"",IF(Range("G2")=""600"",""600x400x500"",IF(Range("G2")=""710"",""710x300x195"",IF(Range("G2")=""800"",""800x600x500"",IF(Range("G2")=""885"",""885x250x394"",IF(Range("G2")=""1180"",""1180x780x1100"",IF(Range("G2")=""BAN24"",""Banane"",IF(Range("G2")=""BAN20"",""Banane"",IF(Range("G2")=""BAN16"",""Banane"",IF(Range("G2")=""KAR"",""Original"","""")))))))))))))))))))"
    Range("R2").AutoFill Destination:=Range("R2:R" & Ende), Type:=xlFillDefault
    Range("R2:R" & letzteZeile).Copy
    Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R2:R" & letzteZeile).ClearContents
End Sub

Der Fehler befindet sich in Zeile

Range("R2").FormulaR1C1 = ......

Ich weiß nicht mehr weiter. Bitte helft mir

 

Vielen Dnak im Voraus


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Problem mit Wennformeln
13.03.2019 10:05:42 Emre
NotSolved
13.03.2019 11:53:25 Gast94501
NotSolved
13.03.2019 12:15:23 Emre
NotSolved
13.03.2019 12:18:23 Emre
NotSolved
13.03.2019 13:00:15 Gast61522
NotSolved
13.03.2019 13:15:44 Emre
NotSolved
13.03.2019 13:34:09 Gast86790
NotSolved
13.03.2019 13:36:50 Gast57354
NotSolved
13.03.2019 13:38:45 Emre
NotSolved
13.03.2019 14:20:17 Gast93909
NotSolved
13.03.2019 13:41:19 Gast48471
NotSolved
13.03.2019 13:51:18 Emre
NotSolved
13.03.2019 15:17:53 Gast39632
*****
NotSolved
13.03.2019 15:23:23 Gast19601
NotSolved
13.03.2019 15:36:58 Emre
Solved
13.03.2019 15:28:49 Emre
NotSolved
13.03.2019 16:46:51 Gast13790
NotSolved
20.03.2019 13:54:21 Emre
NotSolved