Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

warum funktioniert das Makro nicht?

Forumthread: warum funktioniert das Makro nicht?

warum funktioniert das Makro nicht?
07.05.2004 19:53:35
Pit
Hi,
ich brauche mal nen Excel-VBA-Experten.
Das Makro prüft zuerst, ob die Zelle bereits einen Rahmen hat. -funktioniert
Wenn nicht werden 2 neue Zeilen hinzugefügt und die Schriftformatierung für die neuen Zeilen auf bold gesetzt. -funktioniert
Und jetzt krachts:
Die beiden Zeilen sollen in 4 Bereiche eingeteilt und umrahmt werden.
Beispiel:
A3 ist die aktive Zelle wenn das Makro ausgeführt wird.
Es werden 2 neue Zeilen eingefügt (Zeile 3 und Zeile 4) und auf bold gesetzt.
Bereich 1 ist dann A3:B4
Bereich 2 ist dann C3:D4
Bereich 3 ist dann E3:E4
Bereich 4 ist dann F3:F4
Vielen Dank im Voraus
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: warum funktioniert das Makro nicht?
07.05.2004 20:00:55
Beni
hallo Pit,
stelle das Makro rein.
Gruss Beni
AW: hab ich doch glatt vergessen, ich Dussel
Pit 

Sub np()
Dim i%
Dim B(1 To 4) As Range
If ActiveCell.Borders.LineStyle = xlNone Then
For i = 1 To 2
Rows(ActiveCell.Row).Insert Shift:=xlDown
Next i
Rows(ActiveCell.Row).Font.Bold = True
Rows(ActiveCell.Row + 1).Font.Bold = True
B(1) = Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.Offset(1, 1).Row, ActiveCell.Offset(1, 1).Column))
B(2) = Range(Cells(ActiveCell.Offset(0, 2).Row, ActiveCell.Offset(0, 2).Column), _
Cells(ActiveCell.Offset(1, 3).Row, ActiveCell.Offset(1, 3).Column))
B(3) = Range(Cells(ActiveCell.Offset(0, 4).Row, ActiveCell.Offset(0, 4).Column), _
Cells(ActiveCell.Offset(1, 4).Row, ActiveCell.Offset(1, 4).Column))
B(4) = Range(Cells(ActiveCell.Offset(0, 5).Row, ActiveCell.Offset(0, 5).Column), _
Cells(ActiveCell.Offset(1, 5).Row, ActiveCell.Offset(1, 5).Column))
For i = 1 To 4
B(i).BorderAround (xlHairline)
Next i
End If
End Sub

Anzeige
AW: hab ich doch glatt vergessen, ich Dussel
Martin
Hallo Pit,

Sub np()
Dim i%
Dim B(1 To 4) As Range
If ActiveCell.Borders.LineStyle = xlNone Then
For i = 1 To 2
Rows(ActiveCell.Row).Insert Shift:=xlDown
Next i
Rows(ActiveCell.Row).Font.Bold = True
Rows(ActiveCell.Row + 1).Font.Bold = True
Set B(1) = Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.Offset(1, 1).Row, ActiveCell.Offset(1, 1).Column))
Set B(2) = Range(Cells(ActiveCell.Offset(0, 2).Row, ActiveCell.Offset(0, 2).Column), _
Cells(ActiveCell.Offset(1, 3).Row, ActiveCell.Offset(1, 3).Column))
Set B(3) = Range(Cells(ActiveCell.Offset(0, 4).Row, ActiveCell.Offset(0, 4).Column), _
Cells(ActiveCell.Offset(1, 4).Row, ActiveCell.Offset(1, 4).Column))
Set B(4) = Range(Cells(ActiveCell.Offset(0, 5).Row, ActiveCell.Offset(0, 5).Column), _
Cells(ActiveCell.Offset(1, 5).Row, ActiveCell.Offset(1, 5).Column))
For i = 1 To 4
B(i).BorderAround (xlHairline)
Next i
End If
End Sub

Gruß
Martin Beck
Anzeige
AW: Danke, Bäume und Wald ;-))
Pit
Hi Martin,
danke für die Hilfe. "Set" ... hab vor lauter Bäumen den Wald nicht mehr gesehen.
Gruß Pit
AW: so wars ursprünglich
Pit
Funktioniert auch nicht, deshalb die umständliche Variante mit den Cells

Sub np()
Dim i%
Dim B(1 To 4) As Range
If ActiveCell.Borders.LineStyle = xlNone Then
For i = 1 To 2
Rows(ActiveCell.Row).Insert Shift:=xlDown
Next i
Rows(ActiveCell.Row).Font.Bold = True
Rows(ActiveCell.Row + 1).Font.Bold = True
B(1) = Range(ActiveCell, ActiveCell.Offset(1, 1))
B(2) = Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(1, 3))
B(3) = Range(ActiveCell.Offset(0, 4), ActiveCell.Offset(1, 4))
B(4) = Range(ActiveCell.Offset(0, 5), ActiveCell.Offset(1, 5))
For i = 1 To 4
B(i).BorderAround (xlHairline)
Next i
End If
End Sub

Anzeige
AW: funktioniert auch mit dem "Set" o.T.
Pit
... vor den B()
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Warum funktioniert der Code nicht ?
TomTom


Hi,
ich habe auf meinem Scheet 2 Textboxen untereinander (1 und 2)
Da werden nun daten reingeladen. Entsprechend der Texteingabe, werden auch die Textboxen entsprechend hoch. Mein Ziel war es, wenn in der Textbox1 so viel Text drin steht, dass die Untere Kante der Textbox1 über di...
10.09.2008 13:22:37
Thread-ID: 1008773
3 Beiträge
Anzeige
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
SVERWEIS geht nicht
gio

Hallo Profis,
brauche Eure Hilfe.
Ich erstelle mir in einer Zelle über eine Formel eine 3stellige Zahl oder Buchstabenkombination.
=(LINKS(A1;3)) ergibt z.B. 123 oder abc
Das passt soweit.
Über Sverweis suche ich mir dann zu 123 oder abc dazugehörige Daten.
Das funzt nic...
29.10.2008 09:54:21
Thread-ID: 1020154
5 Beiträge
Anzeige
Warum funktioniert select bei Range nicht??
Lars

Hallo,
eigentlich dachte ich, dass ich etwas VBA kann, aber folgendes Problem ist unerklärlich für mich:
Warum wird die Zelle B28 auf Tabellenblatt "overview" nicht farblich markiert? Fehlermeldung: Select-Methode funktioniert nicht.
Private Sub CheckBox1_Click() If CheckBox1.Valu...
06.11.2008 14:29:25
Thread-ID: 1022294
5 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
SVERWEIS geht nicht
Schmidt

Guten Tag
In der Tabelle komm ich mit der Funktion SVERWEIS nicht weiter.
Würde mir bitte jemand helfen.
Danke im Voraus
https://www.herber.de/bbs/user/56652.xls
10.11.2008 15:44:06
Thread-ID: 1023236
7 Beiträge
Warum funktioniert das Verknüpfen nicht ?
TomTom


Hallo,
also, ich möchte per Makro eine andere Datei in mein Excel Sheet als Symbol einbinden. Also das Gleiche, was man über EINFÜGEN / OBJEKT / AUS DATEI ERSTELLEN (als Symbol) macht :
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If D...
01.02.2009 22:58:20
Thread-ID: 1046037
3 Beiträge
warum funktioniert dieses makro nicht?
Emil

Hallo zusammen
Also, ich möchte, wenn der Togglebutton betätigt wird, dass alle Sheets welche mit Tag* beginnen, eingeblendet werden. Wenn ich ihn nochmals drücke, dann sollen alle ausgeblendet werden. Ist ganz einfach, aber ich kriegs irgendwie nicht hin..Hier mein bisheriges Makro:
...
03.04.2009 13:45:04
Thread-ID: 1066669
9 Beiträge
Zellverweis mit Formatierung
Link

Hallo Excel-Profis,
ich brauch Eure Hilfe für ein Problem.
Habe in einem Tabellenblatt pro Monat einen Zellbereich, der mit verschiedenen Terminen von unterschiedlichen Personen gefüllt wird. Je nach Kategorie haben die Termine eine bestimmte Zellformatierung.
In einem zweiten Tabel...
27.05.2009 10:57:50
Thread-ID: 1077650
3 Beiträge
SVerweis Format Probleme
Jordan

Hallo Ihr lieben,
jetzt glaub ich hackts bei mir total!!!
Ich habe hier eine Tabelle in der eine Artikelnummer vorkommt, aber kein Artikelname! Nun hab eine zweite Tabelle, in der hab ich zu jeder Artikelnummer auch den Artikelnamen! Nun klopf ich in die erste Tabelle einen SVerweis ein...
17.06.2009 17:15:50
Thread-ID: 1082323
2 Beiträge
Warum funktioniert das nicht?
Phillip

Hallo,
leider schon zum 2. mal heute.
Ich habe ein Problem und kann es mir nicht erklären, Ich führe in Spalte P die Funktion =SUMMENPRODUKT aus. Spalte "H" wird abgefragt. In den Zellen in Spalte "H" ist eine Formel, wenn die Formel in Spalte "H" aber sagt, dass eine Zelle leer bleibt...
23.07.2009 14:23:24
Thread-ID: 1090823
3 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