Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zentrieren von Zellen aufheben über VBA

Forumthread: Zentrieren von Zellen aufheben über VBA

Zentrieren von Zellen aufheben über VBA
31.08.2006 12:20:39
Zellen
Hallo beisammen,
ich habe den Range("B6:D6") zentriert und möchte dies über VBA aufheben.
Leider funktioniert werder:
Sheets("ENTER").Range("B6:D6").MergeCells = False
noch
Sheets("ENTER").Range("B6:D6").Select
With Selection
.MergeCells = False
End With
Was mach ich noch falsch?
Vielen Dank für Eure Hilfe.
Gruß
Torsten
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zentrieren von Zellen aufheben über VBA
31.08.2006 12:38:06
Zellen
Hallo Torsten,
Range("B6:D6").MergeCells = False
hebt verbundene Zellen auf.
Range("B6:D6").HorizontalAlignment = xlGeneral
hebt zentrierte Zellen auf.
Gruß Ingolf
AW: Verbundene Zellen aufheben über VBA
31.08.2006 13:21:47
Torsten
Hallo Ingolf,
vielen Dank für Deine Rückmeldung.
Du hast natürtlich Recht: Ich meinte "verbundene" Zellen.
Nur mit dem Code komme ich leider nicht weiter; der läuft halt nicht bei mir.
So sieht der Ansatz meines Codes aus:
(Anmerkung: Im WS("FILES") sind die Dateien gelistet, die geändert werden sollen)
Private Sub CommandButton1_Click()
Dim i As Integer
Dim i2 As Integer
Dim Arr As Variant
Dim wbName As String
If MsgBox("Sollen die Änderungen jetzt in die Invest-Dateien eingefügt werden?", vbYesNo) = vbYes Then
'On Error GoTo errHandler
With Application
.ScreenUpdating = False
.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
.EnableEvents = False
End With
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
With Sheets("Übersicht")
.Visible = True
.Unprotect password:="maze"
.Range("B6:D6").Select
With Selection
.MergeCells = False
End With
.Range("D6").FormulaR1C1 = "Monat"
...
und hier bleibt Excel halt an der Stelle: ".Range("B6:D6").Select" hängen mit der Meldung:
"Die Selectmnethode des Range-Objectes konnte nicht ausgeführt werden".
Hast Du eine Idee, woran das liegen könnte?
Gruß
Torsten
Anzeige
AW: Verbundene Zellen aufheben über VBA
31.08.2006 13:35:43
u_
Hallo,
wenn es sich um verbundene Zellen handelt, existiert der Bereich nicht. Und Selecten brauchst und darfst du in dem Fall nicht.
Gruß
Lesen gefährdet die Dummheit
AW: Verbundene Zellen aufheben über VBA
31.08.2006 14:01:19
IngGi
Hallo Torsten,
du kannst nur Zellen in einem aktiven Tabellenblatt markieren. Um die Zellen B6:D6 zu markieren, müsstest du also vorher das Arbeitsblatt "Übersicht" aktivieren.
With Sheets("Übersicht")
.Visible = True
.Unprotect password:="maze"
Sheets("Übersicht").Activate
.Range("B6:D6").Select
With Selection
.MergeCells = False
End With
Aber wie u_ schon gesagt hat, kannst du auf das vorherige markieren verzichten. Ich schlage folgendes vor:
With Sheets("Übersicht")
.Visible = True
.Unprotect password:="maze"
.Range("B6:D6").MergeCells = False
Gruß Ingolf
Anzeige
erledigt - mT
31.08.2006 14:46:35
Torsten
Hallo Ihr beiden,
vielen Dank für Eure Rückmeldungen.
Ich habe auch weiterprobiert und festgestellt, daß die Selection-Methode nicht funktioniert, wenn ich auf eine anderes WS zugreifen möchte, als das, aus dem das Makro heraus aufgerufen wurde. Hier der angepasste Code:
...
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
With Sheets("Übersicht")
.Visible = True
.Unprotect password:="maze"
End With
Sheets("Übersicht").Range("B6:D6").MergeCells = False
With Sheets("Übersicht").Range("D6")
.FormulaR1C1 = "Monat"
.Range("D6").Font.Bold = True
End With
...
Das ".MergeCells = False" funktioniert nicht in einem With-Block, daher musste ich es separieren.
Nochmals vielen Dank.
Gruß
Torsten
Anzeige
;

Forumthreads zu verwandten Themen

Auf einzelne Zeile einer Multi-Zelle zugreifen
Andreas
Hallo Michael,vielleicht hier mal ein Ansatz die Zeilennummer zu ermitteln:
Viel Spaß,
Andreas
15.04.2002 14:35:16
Thread-ID: 113418
3 Beiträge
VBA: Tagesdatum auf 3 Zellen aufteilen
KlausF

Hallo Forum,
ich stehe gerade vor folgendem Problem:
Ich habe einen Button, der zellfüllend in einer beliebigen Zelle steht, z.B. in A2
Ich möchte jetzt auf Klick immer das heutige Tagesdatum wie folgt aufteilen:
die darüber liegende Zelle (hier A1) bekommt den Tag von Heute() i...
15.10.2010 15:37:47
Thread-ID: 1182643
4 Beiträge
ComboBox fühlen ohne auf Tabelle zuzugreifen
Lena

Guten Abend!Gibt es eine Möglichkeit, wie ich die Einträge, die in einer ComboBox erscheinen, vorgeben kann, ohne die ComboBox an einen Zellbereich in dem Tabellenblatt zu binden?Ich möchte 7 Einträge vorgeben (Variante 1; Variante 2; ... Variante 7). Daran soll sich auch nichts ändern. Was ich...
18.05.2002 18:33:00
Thread-ID: 121915
3 Beiträge
Tabellen Spalte aufsteigend sortieren mit VBA
Malcolmp

Hallo Forum,
mit folgendem Code Schreibe ich einen Datensatz in die erste freie Zelle einer Spalte in Tabelle2:
Tabelle2.Cells(Tabelle2.Cells(Rows.Count, FzgSP.Column).End(xlUp).Row + 1, FzgSP.Column) = _
CLng(DATE1) & " " & Left(CDate(TIME1), 2) & " " & CLng(DATE2)...
27.07.2011 13:22:31
Thread-ID: 1223854
5 Beiträge
Zellen bedingt neu Auflisten (ohne VBA/Filter)
SebastianSchelb

Hallo liebe Forumuser,
ich brauche euere Hilfe.
Ich habe diese Tabelle:
https://www.herber.de/bbs/user/83422.xls
Die Matrix B:C soll durchsucht werden und bei von allen Zellen, in welcher ein "X" ist, die zugehörige Bezeichnung in einer neuen Tabelle (ohne Leerzellen) auflisten...
16.01.2013 12:03:34
Thread-ID: 1294571
3 Beiträge
VBA Zelleintrag auf verschiedenen Tabellen und kop
Hans

Hallo.
Mein Problem.
Ich möchte in Tabelle 1 in Spalte B Zahlen mit Zahlen in Tabelle2 in Spalte D vergleichen und bei übereinstimmung das Datum in Tabelle2 in Spalte E kopieren und in Tabelle1 in Spalte A einfügen.
Wäre schön wenn mir da jemand helfen kann und es auch bisle beschre...
18.04.2013 13:36:06
Thread-ID: 1309371
8 Beiträge
Vierte Pivot-Tabelle reagiert nicht auf VBA Code
Wos

Mahlzeit allen zusammen,
ich habe mit meinem hier bereits modifizierten Code ein neues Problem.
Zum Aufbau:
Auf drei Datenblättern sind 4 Pivottabellen verteilt:
Datenblatt 1: PivotTabelle 1
Datenblatt 2: PivotTabelle 2
Datenblatt 3: PivotTabelle 3 und 4
Alle Pivo...
16.01.2014 13:45:15
Thread-ID: 1345460
10 Beiträge
VBA PP auf kürzlich erstelltes Shape zugreifen
Paddy_P

Hallo,
ich schreibe gerade an einem Skript bei dem ich über VBA aus Excel einen Range Kopiere und diesen in Powerpoint einfüge.
Sobald ich versuche das erstellte Shape anzusprechen (Tabelle 1) gibt es eine Fehlermeldung, dass dieses Shape nicht vorhanden wäre.
Das würde ich ja akze...
08.10.2014 15:30:58
Thread-ID: 1385621
9 Beiträge
Textfeld in Diagramm soll auf Zelle zugreifen
Loer

Hallo,
habe ine weiteres Problem bei meiner Arbeit mit VBA wo ich einfach nicht weiterkomme.
Habe schon die sufu genutzt aber nichts gelesen, auser einmal:
"Textfelder mit Formeln funktionieren nicht"
Ist es tatsächlich so?
Ich möchte ein Diagramm (auf der x-Achse eine fortl...
10.02.2015 13:13:43
Thread-ID: 1408391
6 Beiträge
Datentabellen aufrufen per VBA
Berni

Liebe Excellenzen!
Ich bin gerade dabei, eine Planungstabelle zu basteln, die aufgrund der Detailierung doch ziemlich umfangreich wird. Daher habe ich pro Tabellenblatt einen Planungsauftrag vorgesehen, in welchem dann die Projektanten die diversen Kosten (Stunden) für das kommende Jahr pla...
02.07.2015 11:01:36
Thread-ID: 1434417
4 Beiträge
suche Formel um auf andere Tabelle zu zugreifen
Monica

Hallo,
ich habe ein kleines Problem.
Ich müsste einmal an einer Excel Datei von uns etwas verändern.
Es geht darum, dass man von einer bestimmten Zeile Zugriff auf eine andere Tabelle haben muss.
z.B. von Tabelle 1 von G 34 auf Tabelle 5 und da auf die ganze Spalte von A.
I...
19.11.2015 09:36:09
Thread-ID: 1459385
16 Beiträge
Modul auf Tabelle2 zugreifen
Markus

Liebes Forum,
wie muss ich den folgenden Code ergänzen (Modul2), wenn das allgemeine Modul die Daten in Tabelle 2 sortieren soll, jedoch über die Tabelle1 aufgerufen wird.
Dachte an sowas wie:
Dim wks As Worksheet
Set wks = Sheets ("Tabelle2")
bekomme es leider nicht hin ......
08.05.2016 22:10:57
Thread-ID: 1492275
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige