Thema Datum  Von Nutzer Rating
Antwort
18.04.2015 22:02:23 OverBurned
NotSolved
Blau Kurzes Programm
 18.04.2015 22:04:09 OverBurned
NotSolved
19.04.2015 11:12:02 Gast90931
NotSolved
19.04.2015 11:16:42 Gast78133
NotSolved
20.04.2015 13:29:38 Gast18743
NotSolved
20.04.2015 13:30:55 Gast4460
NotSolved

Ansicht des Beitrags:
Von:
OverBurned		 Datum:
18.04.2015 22:04:09		 Views:
799		 Rating:
     
Antwort:
  Ja
Thema:
Kurzes Programm		 
Sub UnterscheidungTyp()
If Sheets("7").Cells(3, ActiveCell.Row) = Dose Then
        Row As Double
        Row = ActiveCell.Row
        Dim oBlatt As Worksheet
        Set oBlatt = ThisWorkbook.Worksheets("Tabelle1") 'Typ auswählen'
        With oBlatt.Range(ActiveCell.Column, ActiveCell.Row).FormulaLocal = "=Produkt(G&Row&,H&Row&)"
        End With
    End If
End Sub

So hatte ich bis jetzt angefangen aber da sieht man vermutlich, dass ich keine Ahnung habe.

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
18.04.2015 22:02:23 OverBurned
NotSolved
Blau Kurzes Programm
 18.04.2015 22:04:09 OverBurned
NotSolved
19.04.2015 11:12:02 Gast90931
NotSolved
19.04.2015 11:16:42 Gast78133
NotSolved
20.04.2015 13:29:38 Gast18743
NotSolved
20.04.2015 13:30:55 Gast4460
NotSolved