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
20.03.2019 16:16:25 Gast32073
NotSolved
21.03.2019 06:49:20 Emre
NotSolved

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

Hallo zusammen,

 

ich habe ein Problem mit folgendem Makro.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

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

Ich weiß nicht mehr weiter. Bitte helft mir

 

Vielen Dnak im Voraus

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 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
20.03.2019 16:16:25 Gast32073
NotSolved
21.03.2019 06:49:20 Emre
NotSolved