Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

177 Forumthreads zu ähnlichen Themen

Aus VBA auf eigene DLL aus VB.NET zugreifen
Carsten

Hallo,
solange man innerhalb von VB.NET bleibt ist ja alles ganz einfach und schön, aber wie komme ich aus VBA heraus an die Methoden einer DLL ran die ich in VB.NET 2005 programmiert habe?
Da ich in einer öffentlichen Verwaltung arbeite und wir hier hunderte von Excel- und Word-Vorlage...
17.02.2009 16:00:00
Thread-ID: 1051537
3 Beiträge
Anzeige
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
Anzeige
VBA - Minimum finden und auf Zelle verweisen
Ines

Hallo,
seit Stunden probiere ich eine Lösung für mein eigentlich simples Problem zu finden, komme aber leider keinen Schritt mehr weiter.
Ich habe eine Tabelle mit Plattenabmessungen (Länge, Breite, Verhältnis von Oberfläche zu Volumen, ...) von Plattenwärmetauschern. Aus der Spalte (Ve...
03.05.2011 16:27:34
Thread-ID: 1212893
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
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 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
Anzeige

Links zu Excel-Dialogen

CommandButton

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
2
4
2
3
2
2
4
2
2
7
9
4
7
8
5
2
3
4
15
3
17
2
2
4
5