Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion die ermittelt ob Grafik in Zeile/Zelle

Funktion die ermittelt ob Grafik in Zeile/Zelle
Lutz
Hallo Excel-Profis,
ich bekomme eine Liste mit diversen Zeilen und in Spalte A gibt es Zeilen die eine Grafik enthalten (Grafik heißt immer BeX am Anfang)
Ich bräuchte eine Funktion die ermittelt, ob in der Zelle A der betreffenden Zeile eine Grafik steht (oder eben eine Grafi die Bex am Anfang heißt) oder nicht.
Ich brauche das, weil ich sonst Summen doppelt zählen würde, der Inhalt der Zelle A... ist in allen Zeilen gleich aber eine ist eine Summe und die andere/n eben nicht.
Wie kann man per Funktion ermitteln, ob in der Spalte A eine Grafik ist?
Vielen Dank für Eure Hilfe,
Viele Grüße Lutz
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 13:03:33
Rudi
Hallo,
wozu?
Wenn du Einzelwerte und Zwischensummen hast, summiere alles und teile durch 2.
Gruß
Rudi
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 14:14:16
Lutz
Hallo Rudi,
vielen Dank, leider habe ich das Problem dass dann nur die Gesamtsumme stimmt.
Es sieht so aus, dass
4711 10.000 (Zeile mit der Grafik = Summe 4711 und ff.) und
4711 1.000 (Zeile ohne Grafik = Einzelwert 4711) da ist
Viele Grüße Lutz
UDF
30.03.2011 14:44:18
Rudi
Hallo,
in ein Modul: 
Function SummeOhneShapes(rngSum As Range) As Double
Dim oShp As Shape, dblShapes As Double
For Each oShp In rngSum.Parent.Shapes
If Not Intersect(rngSum, oShp.TopLeftCell) Is Nothing Then
If IsNumeric(oShp.TopLeftCell) Then
dblShapes = dblShapes + oShp.TopLeftCell
End If
End If
Next
SummeOhneShapes = Application.Sum(rngSum) - dblShapes
End Function

In der Tabelle z.B.: =SummeOhneShapes(A2:B20)
Gruß
Rudi
Anzeige
AW: UDF
30.03.2011 15:12:43
Lutz
Hallo Rudi,
vielen Dank, sieht eigentlich gut aus aber er wirft mir nur Wert an den Kopf.
Mir würde es reichen, wenn die Funktion 1 ausgibt, wenn ein Shape in Spalte A der jeweiligen Zeile ist und eine 0 wenn keines da ist.
Spalte A ist die Kostenstelle/Gruppe
Spalte B ist Text
Ab Spalte C Zahlen
Viele Grüße Lutz
AW: UDF
30.03.2011 15:44:39
Rudi
Hallo,
0 oder 1: 
Function HasShape(rngCell As Range) As Integer
Dim oShp As Shape
For Each oShp In rngCell.Parent.Shapes
HasShape = -(rngCell(1).Address = oShp.TopLeftCell.Address)
If HasShape = 1 Then Exit Function
Next
End Function

Gruß
Rudi
Anzeige
AW: UDF
30.03.2011 15:55:28
Lutz
Hallo Rudi,
stark das geht - nur wenn er keinen Shape hat, bringt er nicht 0 sondern #Wert - bekommt man das noch weg?
Vielen Dank und viele Grüße Lutz
#Wert: kann ich nicht nachvollziehen owT
30.03.2011 16:19:58
Rudi
AW: #Wert: kann ich nicht nachvollziehen owT
30.03.2011 16:33:57
Lutz
Hallo Rudi,
ist auch nicht so wild, kann man mit Istfehler wegbekommen.
Aber zur Info mal das eine Beispieldatei:
https://www.herber.de/bbs/user/74215.xls
Vielen Dank in jedem Fall, viele Grüße und noch einen schönen Tag Lutz
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 13:40:49
Beverly
Hi Lutz,
auch wenn du bereits eine Lösung für dein eigentliches Problem hast, dennoch eine Antwort auf die Frage, wie man prüfen kann, ob eine Grafik auf einer bestimmten Zelle liegt: laufe in einer Schleife über alle Shapes und vergleiche, ob Shape.TopLeftCell.Address = Adresse der Zelle ist.

Anzeige
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 14:12:04
Lutz
Hallo Karin vielen Dank für die Info
wie kann ich das denn in einem Makro verarbeiten - ich fürchte mit meinen VBA Kenntnissen komme ich da nicht hin.
Vielen Dank Güße Lutz
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 14:23:51
Beverly
Hi Lutz, 
Sub ShapeAdresse()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
If shaShape.TopLeftCell.Address = "$C$6" Then MsgBox "Grafik auf C6 vorhanden"
Next shaShape
End Sub


AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 14:35:06
Lutz
Hallo Beverly,
das sieht ja schon mal gut aus.
Ich habe das mal etwas angepasst:
Sub ShapeAdresse()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
'If shaShape.TopLeftCell.Address = "$C$6" Then MsgBox "Grafik auf C6 vorhanden"
If shaShape.TopLeftCell.Address = "$A$16" Then MsgBox "Grafik auf A16 vorhanden"
If shaShape.TopLeftCell.Address = "$A$17" Then MsgBox "Grafik auf A17 vorhanden"
If shaShape.TopLeftCell.Address = "$A$18" Then MsgBox "Grafik auf A18 vorhanden"
Next shaShape
End Sub
Er gibt mir dann auch richtig für 16 und 18 (ist so) die Meldung, dass eine Grafik da ist aus.
Aber am Ende kommt danach immer eine Meldung 1004 Anwendungs oder Objektorientierter Fehler wieder - an dieser Stelle:
If shaShape.TopLeftCell.Address = "$A$16" Then
Fehlt ihm da am Ende was?
Was müßte ich am Ende jeder Zeile ändern wenn er statt der msgbox den Text in die entsprechende Zeile aber Spalte R schreiben sollte?
Vielen Dank und viele Grüße Lutz
Anzeige
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 15:02:50
Beverly
Hi Lutz,
weshalb bei dir ein Fehler kommt, kann ich leider nicht nachvollziehen.
Wenn du nur wenige Zellen bzw. Grafiken überprüfen musst, kannst du den Eintrag in Spalte R nach diesem Prinzip machen: 
If shaShape.TopLeftCell.Address = "$A$16" Then Range("R16") = "Grafik auf A16 vorhanden"

Sind es dagegen viele, wäre der Code so einfacher: 
Sub ShapeAdresse()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
If shaShape.TopLeftCell.Column = 1 Then _
Range(shaShape.TopLeftCell.Address).Offset(0, 17) = "Grafik auf " & _
shaShape.TopLeftCell.Address(False, False) & " vorhanden"
Next shaShape
End Sub


Anzeige
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 16:06:41
Lutz
Hallo Beverly,
wunderbar, das klappt, komischerweise macht er alles durch und ganz am Ende jammert er dann aber bei
If shaShape.TopLeftCell.Column = 1 Then wieder den 1004 an - weiß der Geier warum. Vielleicht weil auch noch ein paar Shapes in anderen Spalten sind?
Viele Grüße und tausend Dank schon mal Lutz
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 19:12:58
Beverly
Hi Lutz,
ich wüsste keinen Grund, weshalb dieser Fehler auftreten sollte. Hast du den Code mal im Einzelschrittmodus ablaufen lassen? Vielleicht solltest du deine Arbeitsmappe mal hochladen.

Anzeige
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
30.03.2011 22:03:56
lutz
Hallo Beverly, bin leider nicht mehr im Büro.
Ich habe die Mappe weiter oben in dem Thread mit Rudi ganz am Ende hochgeladen - da ist auch das Conding von Dir drin.
Viele Grüße Lutz
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
31.03.2011 10:36:31
Beverly
Hi Lutz,
ich erhalte in der hochgeladenen Mappe keinen Fehler - der Code läuft korrekt durch und trägt jeweils in R1, R3, R4, R6 und R7 ein.

AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
31.03.2011 12:24:55
Lutz
Hallo Beverly,
dann muß ich noch mal sehen, was in der Original-Datei stört.
Ich habe oben und unten gelöscht zumal da auch Unternehmenszahlen drin standen...
Vielen lieben Dank für Deine Hilfe und noch einen schönen Tag.
Viele Grüße Lutz
Anzeige
AW: Funktion die ermittelt ob Grafik in Zeile/Zelle
31.03.2011 14:19:20
Beverly
Hi Lutz,
ich nehme an, du hast die Zeilen gelöscht und nicht nur die Zellinhalte? Vielleicht solltest du mal nur die Inhalte löschen und die Mappe dann noch einmal hochladen. Die Inhalte am besten auch per Code mit ClearContents und nicht von Hand löschen.

304 Forumthreads zu ähnlichen Themen

Grafik laden - Dateipfad in Zelle
Marcus

Hallo,
habe zu folgendem Code eine Frage: Private Sub CommandButton1_Click() With Application .Calculation = xlAutomatic .MaxChange = 0.001 ActiveWorkbook.PrecisionAsDisplayed = False End With If MsgBox("Alles berechnet!" & Chr(13) & "Richtiges Papier eingelegt?" & Chr(13) &...
14.10.2009 08:06:01
Thread-ID: 1109489
12 Beiträge
Anzeige
UserForm über Grafik - Inhalt aus aktiver Zelle
Rainer

Hallo,
habe hier mal diesen Code bekommen: ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Insert
Es dürfte doch dann sicher auch einen Code geben, der mir die Adresse des "ActiveSheet" wiedergibt.
Möchte eine Zelle mit etlichem Textinhalt über UserForm lesen und b...
10.06.2010 10:40:37
Thread-ID: 1161193
6 Beiträge
Tablle an Diagramm anbinden??????
Heiko

Hallo Leute,
ich brauche mal eure Hilfe.
Folgendes Problem:
Ich möchte gerne unter einem Säulendiagramm (siehe Anhang) eine Tabelle unter dem Diagramm darstellen welche an das Diagramm angebunden bzw. eingebunden ist. Also auch "mitgeht" wenn man das Diagramm verschiebt oder seine...
09.09.2010 11:51:44
Thread-ID: 1176581
15 Beiträge
Anzeige
Grafik in Zelle - Durchschnitt darstellen
Stef@n

Hallo Excel-Freunde
ich möchte gern,
1. dass in einer Zelle die Min / Max - Bandbreiten grafisch dargestellt werden (Formel ?)
2. dass in einer Zelle (farblich markiert) der Durchschnittswert mit einem Strich o.ä markiert wird.
Zur Verdeutlichung habe ich das Sheet beigefügt
18.02.2011 22:27:11
Thread-ID: 1201721
6 Beiträge
Checkbox in zelle fixieren
Felix

Hallo,
ich habe mir aus Archiveinträgen diesen Code zusammengeflickt und theoretisch funktioniert er auch, um eine Zeile neben der Checkbox grün einzufärben, wenn diese aktiviert wird.
Private Sub CheckBox1_Click() If CheckBox1 Then Range("A2:l2").Interior.ColorIndex = 4 Else Range("A...
06.04.2011 14:03:12
Thread-ID: 1209300
5 Beiträge
Bilder in Zellen einlesen und fixieren
Christina

Hallo,
in Spalte A ab A2 stehen Artikelnr, in Spalte E Bildnamen, die sich aus der Artikelnr & „.jpg“
gebildet werden. Die Bilder selbst sind im Ordner C:\Bilder gespeichert.
Nun sollen die Bilder in Spalte D ab D2 eingelesen werden und die Bilder der Zellgröße angepasst und von...
20.11.2011 23:23:02
Thread-ID: 1238624
5 Beiträge
Bilder an Zellen binden
Alex

Hallo zusammen,
ich will in einer tabelle die spalten zeit, datum, etc, und Einstellungsgröße eingeben. In der Spalte Einstellungsgröße würde ich gerne Jpegs 8irgendwelche Bilder einfügen). Wie kann ich die Bilder an die Zellen binden.
Vieleb Dank schonmal und ein schönes Wochenende
02.03.2012 17:55:00
Thread-ID: 1253245
2 Beiträge
Zellenverbinden und Zellenfarbe ändern
Christian

Hallo alle zusammen,
ich hänge euch eine Bsp.-Datei an, Von Zeile 3 an wurde eine weitere Tabelle eingefügt. Wie bekomme ich es hin, dass die Spaltenbezeichnungen der Zeile 6 entsprechen, also z.B. die jetzige Spalte 3 und Spalte 4 dieselbe Spaltenbezeichnung haben, sodass ich z.B. nach ein...
02.10.2012 11:52:51
Thread-ID: 1280215
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
3
5
14
4
5
4
4
1
4
4
3
4
2
1
2
11
5
2
2
1
1
1
2
3