Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen via VBA verbinden?

Forumthread: Zellen via VBA verbinden?

Zellen via VBA verbinden?
23.06.2005 10:21:18
Markus
Hi zusammen,
ich möchte zwei zellen (cell1,cell2) miteinander verbinden. Wenn ich ein Macro erstelle sieht das so aus
Range("A59:B59").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Danke
Markus
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen via VBA verbinden?
23.06.2005 10:32:25
Hajo_Zi
Hallo Markus,
und was ist nun die Frage? In VBA kann zu 99% auf select verzichtet werden.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Zellen via VBA verbinden?
23.06.2005 10:51:27
Markus
wenn ich range("...").select weglasse.. dann weiss er doch nicht welche zellen er verbinden soll?
gleiches problem hab ich auch bei
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
(Zelle unterstreichen und fett schreiben)
hier nimmt er einfach die zelle welche markiert ist.. ist aber nie die die ich will..
wie kann ich denn ne zelle markieren wenn ich nur die koordinaten hab?
Anzeige
AW: Zellen via VBA verbinden?
23.06.2005 10:57:31
Matthias
Hallo Markus,

Range("A59:B59").Merge

der Rest kann weggelassen werden.
Gruß Matthias
AW: Zellen via VBA verbinden?
23.06.2005 11:04:54
Markus
ich hab aber die zellkoordinaten nur so
a1= 1,1
b1= 2,1
wie gehts denn dann?
AW: Zellen via VBA verbinden?
23.06.2005 11:12:05
Matthias
Hallo Markus,
dann so:

Range(Cells(1, 1), Cells(2, 1)).Merge

Gruß Matthias
Anzeige
AW: Zellen via VBA verbinden?
23.06.2005 11:18:48
Markus
mist.. geht nicht =/
Range(Cells(such_zeile, such_spalte), Cells(such_zeile, such_spalte + 1)).Merge
muss ich das tabellenblatt noch mitgeben?
und wenn ich eine Zelle fett schreiben will, die ich auch mit cells ansprechen will.. wie geht denn dann das?
AW: Zellen via VBA verbinden?
23.06.2005 11:22:57
Matthias
Hallo Markus,
muss ich das tabellenblatt noch mitgeben?
Wenn es nicht das aktive ist, ja:
Dim ws as Worksheet
Set ws = Sheets("Tabelle2")
With ws
Range(.Cells(z1, s1), .Cells(z2, s2)).Merge
End With

bei Fettschrift: statt .Merge dann .Font.Bold = True
Gruß Matthias
Anzeige
AW: Zellen via VBA verbinden?
23.06.2005 11:39:05
Markus
Geht leider wieder nicht =/
Dim ws As Worksheet
Set ws = Sheets("Druck")
With ws
Range(.Cells(such_zeile, such_spalte), .Cells(such_zeile, such_spalte + 1)).Merge
End With
wieder fehler 1004...
AW: Zellen via VBA verbinden?
23.06.2005 11:44:50
Matthias
Hallo Markus,
dann kann es nur noch daran liegen, das die Mappe nicht aktiv ist, und sicherheitshalber noch ein Punkt vor Range:

Sub test()
Dim ws As Worksheet, such_zeile, such_spalte
Set ws = Workbooks("Mappe2").Sheets("Druck") 'Mappennamen anpassen!
such_zeile = 1
such_spalte = 2
With ws
.Range(.Cells(such_zeile, such_spalte), .Cells(such_zeile, such_spalte + 1)).Merge
End With
End Sub

Gruß Matthias
Anzeige
AW: Zellen via VBA verbinden?
23.06.2005 11:50:50
Markus
jetzt gehts :-)
Danke
AW: na endlich ;-) - o.T.
23.06.2005 11:57:26
Matthias
-
;

Forumthreads zu verwandten Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
gleich Zellen finden
Johannes

Hallo Excel-Kenner,
mein Sohn hatte gerade in der Schule bei der Bruchrechnung die Aufgabe vier verschiedene Brüche in aufsteigender Folge zu sortieren. Klarer Fall "kleinstes gemeinsames Vielfache" suchen und entsprechend erweitern und dann vergleichen.....
Aber für die Nenner mit 35,...
15.09.2008 15:29:00
Thread-ID: 1009809
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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