Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Grafik an rechter kante einer Spalte ausrichten?

Grafik an rechter kante einer Spalte ausrichten?
Kasimir
Hallo Leute,
ich muss Euch wieder mal um Hilfe bitten. Ich möchte eine Grafik an bestimmten Spalten ausrichten. Bei den Spalten handelt es sich immer um die letzte beschriebene Spalte. Das ermitteln der letzten Spalte ist nicht das Problem, sondern ich möchte dass die Grafik immer am rechten Rand einer Spalte ausgerichtet wird. Also der rechte Rand eines Bildes soll am rechten Rand z.B. der Spalte F ausgerichtet werden. Zur Verdeutlichung mal ein Bildbeispiel:
Userbild
Jemand eine Idee, wie ich das via VBA realisieren kann.
Danke Euch und Gruß,
Kasimir

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Grafik an rechter kante einer Spalte ausrichten?
06.03.2010 17:32:14
Josef

Hallo Kasimir,
das geht z.B. so.


Sub movePicture()
  Dim objShp As Shape
  Dim lngColumn As Long
  
  lngColumn = 6 'Spalte F
  
  Set objShp = ActiveSheet.Shapes("Bild 1")
  
  With objShp
    .Left = Columns(lngColumn).Left + Columns(lngColumn).Width - .Width
  End With
  
  Set objShp = Nothing
  
End Sub

Gruß Sepp

Anzeige
AW: Grafik an rechter kante einer Spalte ausrichten?
06.03.2010 17:38:56
Nepumuk
Servus Sepp,
was hat denn die Spaltenbreite damit zu tun?
With ActiveSheet.Shapes("Bild 1")
.Left = Columns(lngColumn).Left + .Width
End With
Gruß
Nepumuk
AW: Grafik an rechter kante einer Spalte ausrichten?
06.03.2010 17:40:57
Nepumuk
Hi,
ich sehs ein, war Quatsch. :-)
Gruß
Nepumuk
@Max, RECHTE Kante! o.T.
06.03.2010 17:42:14
Josef
Gruß Sepp

AW: @Max, RECHTE Kante! o.T.
06.03.2010 18:17:31
Kasimir
Hallo Ihr beiden,
danke Euch für die Antworten. Hmm. so ganz funktioniert mein VBA-Code nun noch nicht. Nachfolgend mal mein Code, der mir ein Bild in die letzte Spalte einfügt und eigentlich auf eine bestimmte Größe bringen soll:
With wkbNewWorkbook.Sheets(1)
strSpalte = _
Application.Substitute(Cells(1, intLastColumn + 2).Address(0, 0), 1, "")
'nicht genutzte Zeilen und Spalten ausblenden
.Columns(intLastColumn + 1).ColumnWidth = 0.1
.Columns(strSpalte & ":XFD").EntireColumn.Hidden = True
.Rows(.Cells(Rows.Count, 3).End(xlUp).Row + 1 & ":1048576").EntireRow.Hidden = True
'Logo einfügen
Set objLogo = ActiveSheet.Pictures.Insert(ThisWorkbook.path & "\GFA Public - 1045 Pixel.jpg")
objLogo.Name = "Logo" '
strLogoName = objLogo.Name
.Shapes(strLogoName).Placement = xlFreeFloating
.Shapes(strLogoName).LockAspectRatio = 0
.Shapes("Logo").Left = .Columns(intLastColumn).Left + .Columns(intLastColumn).Width - .Shapes("Logo").Width
.Shapes(strLogoName).Top = .Cells(1, intLastColumn - 3).Top
.Shapes(strLogoName).Width = 150
.Shapes(strLogoName).Height = 75
'Überschrift eintragen
.Range(Cells(1, 1), Cells(11, intLastColumn)).MergeCells = True
.Cells(1, 1) = "Auslastungsplanung GFA Public"
.Cells(1, 1).Font.Name = "Arial"
.Cells(1, 1).Font.Size = 11
.Cells(1, 1).HorizontalAlignment = xlCenter
.Cells(1, 1).VerticalAlignment = xlCenter
.Cells(1, 1).Font.Bold = True
.PageSetup.PrintTitleRows = "$1:$12"
.PageSetup.CenterFooter = "&""Arial,Standard""&8&P/&N"
.PageSetup.RightFooter = "&""Arial,Standard""&8Projektauswertung vom: &D"
.PageSetup.LeftMargin = Application.InchesToPoints(0.393700787401575)
.PageSetup.RightMargin = Application.InchesToPoints(0.393700787401575)
.PageSetup.TopMargin = Application.InchesToPoints(0.15748031496063)
.PageSetup.BottomMargin = Application.InchesToPoints(0.31496062992126)
.PageSetup.HeaderMargin = Application.InchesToPoints(0)
.PageSetup.FooterMargin = Application.InchesToPoints(0.118110236220472)
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = False
.PageSetup.Orientation = xlLandscape
End With
Nach der Änderung mit dem Ausrichten an der rechten Kante, wird nun aber das Bild von der Größe her verkleinert. Woran kann dass denn liegen?
MfG,
Kasimir
Anzeige
AW: @Max, RECHTE Kante! o.T.
06.03.2010 18:36:32
Josef

Hallo Kasimir,
der Code wird nicht unbedingt lesbarer, nur weil du in fett darstellst!
Wenn du chon eine Objektvariable erstellst, dann solltest du sie auch verwenden.
Die Größe änderst du ja im Code, du solltest zuerst die Größe einstellen, dann die Position.
Den rest vom Code hab ich jetzt nicht beachtet, obwohl mir da auch manches ein wenig "schräg" erscheint.

'Logo einfügen
Set objLogo = .Pictures.Insert(ThisWorkbook.Path & "\GFA Public - 1045 Pixel.jpg")

objLogo.Name = "Logo" '
objLogo.Placement = xlFreeFloating
objLogo.LockAspectRatio = 0
objLogo.Width = 150
objLogo.Height = 75
objLogo.Left = .Columns(intLastColumn).Left + .Columns(intLastColumn).Width - objLogo.Width
objLogo.Top = Cells(1, intLastColumn - 3).Top

Gruß Sepp

Anzeige
AW: @Max, RECHTE Kante! o.T.
06.03.2010 19:02:10
fcs
Hallo Kasimir,
ergänzend zu Sepp's Anmerkung.
Du solltest die als String "zusammengebastelten" Zelladdressen für Rows und Columns vermeiden. Verwende statt dessen Range in Verbindung mit Rows und Columns und nummerischen Angaben bzw. Systemvariablen-/Methoden für die Festlegung der Zeilen und Spalten.
So
a) wird es übersichtlicher,
b) funktioniert die Prozedur auch unter den älteren Excelversionen,
c) sind VBA -Prozeduren einfacher zu handhaben/pflegen
d) läuft der Code etwas schneller was in deinem Fall aber kaum relevant ist.
Gruß
Franz 
With wkbNewWorkbook.Sheets(1)
'nicht genutzte Zeilen und Spalten ausblenden
.Columns(intLastColumn + 1).ColumnWidth = 0.1
.Range(.Columns(intLastColumn + 2), _
.Columns(.Columns.Count)).EntireColumn.Hidden = True
.Range(.Rows(.Cells(.Rows.Count, 3).End(xlUp).Row + 1), _
.Rows(.Rows.Count)).EntireRow.Hidden = True
'Logo einfügen
Set objLogo = ActiveSheet.Pictures.Insert(ThisWorkbook.Path _
& "\GFA Public - 1045 Pixel.jpg")
objLogo.Name = "Logo" '
strLogoName = objLogo.Name
.Shapes(strLogoName).Placement = xlFreeFloating
.Shapes(strLogoName).LockAspectRatio = 0
.Shapes(strLogoName).Top = .Cells(1, intLastColumn - 3).Top
.Shapes(strLogoName).Width = 150
.Shapes(strLogoName).Height = 75
.Shapes("Logo").Left = .Columns(intLastColumn).Left + .Columns(intLastColumn).Width - _
.Shapes("Logo").Width
'Überschrift eintragen

Anzeige

299 Forumthreads zu ähnlichen Themen

Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
In Spalte alles hinter einer Leerstelle löschen
Hans

Hallo Leute.
Wie kann ich in einer Spalte alles löschen was hinter einer Leerstelle (ink. Leerstelle) kommt?
mfg
Hans
19.09.2008 13:51:11
Thread-ID: 1011037
2 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzahl gleicher Elemente einer Spalte
Pascal

Hallo,
wie kann ich die Anzahl der gleichen elemente in einer Spalte ermitteln?
die Tabelle sieht etwa so aus:
1
3
0
1
1
2
0
1
das ergebis soll dieses sein:
0: 2
1: 4
2: 1
3: 1
03.11.2008 08:35:37
Thread-ID: 1021264
5 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 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
8
8
1
1
1
4
10
4
4
5
1
13
2
2
2
6
1
9
1
3
4
10
9
6
3