Zelleninhalt der selektierten Zellen auslesen

[Trendpeiler]

Hallo.

@ Get: Danke! Das neue Script mit Message funktioniert soweit gut.



Viele Grüße
Trendpeiler

[klaus314]

Wie kann ich die Zellenhöhe der markierten Zelle bekommen?
Ich bekomme immer den Wert 1E7 zurück egal welche Zelle.
Auch die isHidden Funktion liefert bei mir immer nur 0 zurück für markerte Zellen.

Noch einmal ich benötige die Funktion für die markierten Zellen!

[Get]

Hallo,
ich denke, es macht nicht viel Sinn, die einzeln markierten Zellen einfach nur per MsgBox auszugeben, Deswegen habe ich folgende Ergänzung vorgenommen: Die markierten Zellen werden in einer Tabelle in einer neuen Zeile bzw. Spalte ausgegeben. Dazu wird beim Start des Skripts ein Dialog aufgerufen:

dialog.JPG (23.64 KiB) 10959 mal betrachtet

Man wählt aus, in welches Tabellenblatt die Werte geschrieben werden sollen. Man kann bei Bedarf vorher ein neues Blatt erzeugen.
Dann gibt man die Startposition der Werte auf dem neuen Blatt an. Achtung: Auch für die Spalte muss eine Zahl eingetragen werden, Buchstaben gehen nicht. Dann ist noch anzugenben, ob die Werte in eine Zeile oder eine Spalte eingetragen werden sollen. OK, und fertig.

@ klaus314: Die Höhe einer Zelle ist immer die Höhe der Zeile. Im linken Rand mit der rechten Maustaste die Zeilennummer anklicken und [Zeilenhöhe..] auswählen.

[Trendpeiler]

... ich denke, es macht nicht viel Sinn, die einzeln markierten Zellen einfach nur per MsgBox auszugeben, Deswegen habe ich folgende Ergänzung ...

Hallo Get.

Schön gemacht.

Ja, wenn man mit den hintergrundfarben-selektierten Zahlen von "Tabelle1" anschließend bspw. in "Tabelle2" was machen möchte, dann hat man sie gleich dort, wo man sie benötigt. Und die Zeichenhintergrundfarbe braucht (nach wie vor) auch nicht in "Tabelle1" gelöscht werden, da dies optional ist.


Viele Grüße
Trendpeiler

[klaus314]

Ich würde aber gerne die Zellenhöhe via Makro ermitteln und nicht herumklicken.

Hintergrund ist: Ich markiere Zellen z.B. C30:C45 und möchte den Wert der Zellen ändern aber nur die Zellen die sichtbar sind.
Sichtbare Zellen haben eine Zellenhöhe von größer 0 bzw. haben den Status IsHidden auf False gesetzt. ich bekomme aber jedesmal als Zellenhöhe 1E007 zürück bzw. für IsHidden = 0.

[martin-k]

Eine IsHidden-Eigenschaft gibt es nicht, nur Hidden:

Code: Alles auswählen

sub x
	dim p as object
	set p = CreateObject("PlanMaker.Application")
	if p.ActiveSheet.Selection.Hidden = smoUndefined then
		print "nicht verborgen"
	else
		print "verborgen"
	end if
end sub

Und hier die Höhe der Zeile 1 des Arbeitsblatts:

Code: Alles auswählen

sub x
	dim p as object
	set p = CreateObject("PlanMaker.Application")
	print p.ActiveSheet.Rows(1).RowHeight
end sub

[klaus314]

@martin-k
Wie ich die Info für eine bestimmte Zelle bekomme ist klar, aber wie kann ich das für die selektierten Zellen bekommen?
Mein Makro weiß doch nicht welche Zellen der User selektiert hat.

Also angenommen der User hat die Zellen C15:C35 selektiert aber die Zellen C20, C28 und C30 sind verborgen (hidden) haben die Zellenhöhe 0.
Jetzt mochte ich allen Zellen einen neuen Wert zuweißen aber nicht die verborgene Zellen C20, C28 und C30.

[FFF]

@martin-k
Wie ich die Info für eine bestimmte Zelle bekomme ist klar, aber wie kann ich das für die selektierten Zellen bekommen?
Mein Makro weiß doch nicht welche Zellen der User selektiert hat.

Also angenommen der User hat die Zellen C15:C35 selektiert aber die Zellen C20, C28 und C30 sind verborgen (hidden) haben die Zellenhöhe 0.
Jetzt mochte ich allen Zellen einen neuen Wert zuweißen aber nicht die verborgene Zellen C20, C28 und C30.

Habe mich nicht näher mit dem Objektmodell von PM beschäftigt, aber ich würde erwarten, dass das Arbeitsblatt eine Property für selektierte Zellen hat, vermutlich ein Array mit den Zeile/Spalte-Werten.

EDIT: mal in der Doku nachgesehen; da findet sich unter Range:
"Zugriffspfade (für die momentan selektierten Zellen):
Application -> Workbooks -> Item -> Sheets -> Item -> Selection"
und auch:
Die Eigenschaft Sheet.Selection gibt ein Range-Objekt zurück, das die aktuelle Selektion repräsentiert, also die gegenwärtig markierten Zellen. Beispiel:
' Die aktuelle Selektion in der Schrift "Courier New" formatieren
pm.ActiveSheet.Selection.Font.Name = "Courier New"

Sollte das nicht gehen?

[klaus314]

Sollte das nicht gehen?


Probier es doch mal aus! Ich habe bisher nichts gefunden was hilft, sonst wiürde ich hier nicht posten, wenn ich etwas gefunden hätte.
Hier siehst du schon mal alles was ich bisher probiert habe, ohne Erfolg:


Sub auswahl_auslesen
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True

Dim rngZahlen as Object
Dim row, col, antw as Integer
Dim swert
Dim farbe as long

hh = pm.ActiveSheet.Rows(3).Hidden
rh = pm.ActiveSheet.Rows(3).RowHeight
cw = pm.ActiveSheet.Columns(4).ColumnWidth

' hh = pm.ActiveDocument.Tables(1).Rows.Item(2).RowHeight


Set rngZahlen = pm.ActiveSheet.Selection

For row = 1 To rngZahlen.Rows.Count
For col = 1 to rngZahlen.Columns.Count

if rngZahlen.Cells.Rows(row).Hidden then
rngZahlen.Cells.Item(row, col).Value = 0
else
rngZahlen.Cells.Item(row, col).Value = row
end if
' rh = rngZahlen.Cells.Item(row, col).Rows(1).RowHeight
' rh = rngZahlen.Cells.Rows(row).RowHeight
' cw = rngZahlen.Cells.Columns(col).ColumnWidth
' hh = pm.ActiveDocument.Tables(1).Rows(2).RowHeight
' mh = rngZahlen.Cells.Item(row, col).RowHeight
' mw = pm.Application.Cells(row, col).Value
' mw = pm.Application.Cells(row, col).Width
' mw = pm.ActiveDocument.Tables(1).Rows(2).Cells(5).PreferredWidth
' mw = rngZahlen.Cells.Rows(2).Cells(5).PreferredWidth
' mw = rngZahlen.Cells.Item(row, col).PreferredWidth
' mx = ngZahlen.Cells.Item(7, 3).ColumnWidth
' If farbe <> -1 then
' MsgBox swert
' End If
Next col
Next row
Set pm = Nothing
End Sub

[FFF]

Sollte das nicht gehen?

Probier es doch mal aus! Ich habe bisher nichts gefunden was hilft, sonst wiürde ich hier nicht posten, wenn ich etwas gefunden hätte.
Hier siehst du schon mal alles was ich bisher probiert habe, ohne Erfolg:

Kann ich nicht, weil SM immer noch keine 64bit Dll geliefert hat, sorry.
Aber was heißt "ohne Erfolg"? Läuft nicht, selection ist leer, oder was?
Auf einen schnellen Blick: was macht das Hidden in der Routine?