Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Makrostartpunkt

Betrifft: Makrostartpunkt von: Tim Völker
Geschrieben am: 20.08.2004 09:10:43

Hi Leute.

Habe nochmal ein probelm:
Ich habe jetzt ein Makro geschrieben zum einlesen von Zellen.
Jedoch wenn ich es starten muss ich genau in die Zelle klicken wo das Makro die erste Zahl hinschreiben soll.
Was muss ich in das Makro einfügen, damit es egal ist welche Zelle ich makierte habe, das er immer in der gleichen Zellen anfängt.

MFg
Tim

  


Betrifft: AW: Makrostartpunkt von: Michael
Geschrieben am: 20.08.2004 09:14:25

ich bin mitr ned sicher ob ich deibn problem richtig verstehe

Wenn die zelle immer gleich bleibt wo es anfängt(also z.b. D3) dann könnt es gehen mit:

Range("D3").Select

das müsstest am anfang von makro einfügen

mfg Michael


  


Betrifft: AW: Makrostartpunkt von: Tim Völker
Geschrieben am: 20.08.2004 09:16:24

Hallo Michael

Sorry, aber das klappt nicht, das habe ich schon probiert.
Noch eine andere Idee ??

MFG
Tim


  


Betrifft: AW: Makrostartpunkt von: Michael
Geschrieben am: 20.08.2004 09:18:41

kannst mal den code kopieren dann is glaub ich leichter ;)

mfg Michael


  


Betrifft: AW: Makrostartpunkt von: Michael
Geschrieben am: 20.08.2004 09:18:45

kannst mal den code kopieren dann is glaub ich leichter ;)

mfg Michael


  


Betrifft: AW: Makrostartpunkt von: Tim
Geschrieben am: 20.08.2004 09:22:55

Sub AED_TUID()
'
' AED_TUID Makro
' Makro am 20.08.2004 von T010861 aufgezeichnet
'

'   Range("F3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("F6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("G6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("H3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
    Range("H4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
    Range("H5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("H6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("I3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
    Range("I4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C6,0)"
    Range("I5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""V"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("I6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[Lieferung der Tui AG.xls]Daten Tui AG'!R7C4=""F"",'[Lieferung der Tui AG.xls]Daten Tui AG'!R7C8,0)"
    Range("F3").Select
End Sub



  


Betrifft: AW: Makrostartpunkt von: Michael
Geschrieben am: 20.08.2004 09:26:05

warum ist das erste Range.select als Kommentar drinnen???

mfg Michael


  


Betrifft: AW: Makrostartpunkt von: Tim
Geschrieben am: 20.08.2004 09:32:02

Keine AHnung
Habe es jetzt mal rausgenommen und jetzt scheint es zu gehen, viele DANk Michael

MFG
Tim


  


Betrifft: AW: Makrostartpunkt von: Michael
Geschrieben am: 20.08.2004 09:33:33

Kein Problem ;)

mfg Michael