Excel Problem

Cush · 12. August 2009

hi

also hab folgendes Problem:

Eine Zelle in der Tabelle1 zb. C3 hat den inhalt: Tabelle3!D3 (was ja einer Zelle entspricht)

Nun will ich D3 mal 5 Rechnen... will aber dafür den Inhalt der Zelle C3 nehmen...

also sowas: =C3*5 was dann so ausgerechnet werden sollte: =Tabelle3!D3*5

guggi · 12. August 2009

und was funktioniert nicht?

GP · 12. August 2009

Ah, bei dir in C3 steht nicht der Wert von Tabelle!D3, sondern nur "Tabelle!D3"? Also willst du von diesem Zellennamen auf den Wert kommen?

Da kennt Excel die Funktion "INDIREKT". In deinem Fall schreibst du also =INDIREKT(C3)*5

guggi · 12. August 2009

Imho will er den Wert der Zelle D3 (aus der Tabelle3) in der Zelle C3 (in der Tabelle1) mit 5 multiplizieren.

also müsste in der Zelle C3 nur stehen:
=Tabelle3!D3*5

Cush · 12. August 2009

Zitat

Original von GP
Da kennt Excel die Funktion "INDIREKT". In deinem Fall schreibst du also =INDIREKT(C3)*5

PERFEKT, vielen Dank

CruSher · 23. Oktober 2009

Habe da ein kleines Problem mit VB.

Das Makro sucht und kopiert den Teil mit "PTLC01" (+folgende Zeilen) und fügt es in ein neues Blatt ein.

Nun soll jedoch das Makro bei der letzten Zeile (variiert) anhalten. Jedoch rattert er die ganzen 65k (excel 07 die 1mio) zeilen ab, anstatt bei ca. 4500 stehen zu bleiben.

Folgendes Probiert:

For und Do While schleife..

Code

Dim i
Dim j
Dim y
Dim Sheetname
Dim r, r1 As Range
Dim zA ''Zeilenanfang
Dim zE ''Zeilenende
i = 1
j = 1
y = 1
zA = 1
zE = 1
Sheetname = ActiveSheet.Name
zE = Sheets(Sheetname).UsedRange.Rows.Count
[diverser code]
Do While zA < zE
''Start
Sheets(Sheetname).Select
Range("A" & j).Select
Do While Right(ActiveCell.Value, 6) <> "PTLC01"
ActiveCell.Offset(1, 0).Select
Loop
i = ActiveCell.Address
i = Right(i, Len(i) - 3)
''Ende
Do While ActiveCell.Value <> "Summen"
ActiveCell.Offset(1, 0).Select
Loop
j = ActiveCell.Address
j = Right(j, Len(j) - 3)
''Copy Paste
Sheets(Sheetname).Select
Set r = Sheets(Sheetname).Range(i & ":" & j)
Set r1 = Sheets("PTLC01").Range("A" & y)
r.Copy
r1.PasteSpecial xlPasteValues ' Kopiert den Wert
r1.PasteSpecial xlPasteFormats ' Kopiert das Format (also auch die Farbe)
Application.CutCopyMode = xlCut
y = y + j - i + 3
zA = zA + 1
Loop

Alles anzeigen

Weiss einer Rat?

CruSher · 24. Oktober 2009

keiner ne idee?

Peter Craft · 24. Oktober 2009

Ich würds mit einer Pivot Tabelle machen.

CruSher · 25. Oktober 2009

geht nicht.

CruSher · 26. Oktober 2009

hat keiner einen vorschlag, warum meine schleife nicht stoppen will?

CruSher · 29. Oktober 2009

soo..
habe es herausgefunden dank nem kollegen

problem war, dass meine Do While schleife die Anzahl Drucker gezählt hat und nicht die zeilen wie gedacht.

abhilfe folgender if-befehl gebracht:

Code

Do While Right(ActiveCell.Value, 6) <> "PTLC01" ''sucht den drucker
ActiveCell.Offset(1, 0).Select
If ActiveCell.Row > zE Then ''aktuelle zeile > letzte zeile (~4500)
Exit Sub
End If
Loop