Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenüberschriften fortlaufend beschriften

Forumthread: Spaltenüberschriften fortlaufend beschriften

Spaltenüberschriften fortlaufend beschriften
06.06.2006 11:19:02
Peter
Hallo zusammen,
kann mir jd verraten wie ich per Makro vorhandene Überschriften kopieren und zusätzlich mit einer fortlaufenden Nr versehen kann:
Zu Beginn (Überschriften in der 1.Zeile):
Katze Maus Hund
Nach Ausführung des Makros:
Katze Maus Hund Katze1 Maus1 Hund1 Katze2 Maus2 Hund2...
Das ganze soll so lange laufen, bis die 1.Zeile aller 256 Spalten gefüllt ist.
Vielen Dank.
VG
Peter
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 11:43:20
serge
Hi Peter
ich habe Katze Maus Hund Katze1 Maus1 Hund1 in A1 bis F1 eingetipp, D1 bis F1 angewählt und das Makro aufgezeichenet:
Selection.AutoFill Destination:=Range("D1:M1"), Type:=xlFillDefault
Range("D1:M1").Select
Vielleicht hilft es dir weiter
Serge
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 11:57:30
Harald
Hi Peter,
noch ein Makro aus der Abteilung Hausmannskost:
Aber es läuft ;-)

Sub spaltig()
Dim z As String, col As Integer
z = 0
col = 1
Do While col < 254
If z = 0 Then z = ""
Cells(1, col) = "Katze" & z
Cells(1, col + 1) = "Maus" & z
Cells(1, col + 2) = "Hund" & z
col = col + 3
If z = "" Then z = 0
z = z + 1
Loop
End Sub

Nach dem letzten Hund bleibt eine Spalte frei ;-)
Gruss Harald
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 12:03:16
UweD
Hallo
so...

Sub Hund()
Dim i%, J%
On Error GoTo Fehler
J = 1
For i = 4 To 256 Step 3
ActiveSheet.Cells(1, i) = ActiveSheet.Cells(1, 1) & J
ActiveSheet.Cells(1, i + 1) = ActiveSheet.Cells(1, 2) & J
ActiveSheet.Cells(1, i + 2) = ActiveSheet.Cells(1, 3) & J
J = J + 1
Next
Fehler:
If Err.Number = 1004 Then MsgBox "Letzte Spalte erreicht"
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 12:18:10
fcs
Hallo Peter,

Sub Titelzeile()
Dim wks As Worksheet, Titel As Range, Spalten As Integer, I As Integer, J As Integer
Dim Mal As Integer
Set wks = ActiveSheet
With wks
'Anzahl Spalten mit Titel
Spalten = Application.WorksheetFunction.CountA(.Rows(1))
'Titel einlesen
Set Titel = .Range(Cells(1, 1), Cells(1, Spalten))
'Titel Kopieren
I = Spalten + 1
Mal = 1
Do Until I = 257
For J = 1 To Spalten
.Cells(1, I) = Titel(1, J) & Mal
I = I + 1
If I = 257 Then Exit For
Next
If I + Spalten > 256 Then Exit Do
Mal = Mal + 1
Loop
End With
End Sub

gruß
Franz
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 13:43:27
Peter
Vielen Dank an alle :-)
Die Lösung vom Franz hat am Besten gepaßt. Aber eine Frage hätte ich noch: Ist es auch möglich, dass ich das Kopieren nicht mit der Überschrift der 1.Spalte sondern bspw. mit der Überschrift der 3.Spalte starte:
Anfang: Hund Maus Katze Tiger Vogel
Nach Makro: Hund Maus Katze Tiger Vogel Katze1 Tiger1 Vogel1 Katze2 Tiger2 Vogel2 Katze3 Tiger3 Vogel3 usw...
vielen Dank :-)
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 14:08:38
fcs
Hallo Peter,
habe das Makro angepasst, so dass die Startspalte variabel eingegeben werden kann.

Sub Titelzeile()
Dim wks As Worksheet, Titel As Range, Spalten As Integer, I As Integer, J As Integer
Dim Mal As Integer, SpalteStart As Integer
Set wks = ActiveSheet
'Startspalte eingeben
SpalteStart = Val(InputBox("Ab welcher Spalte wiederholen?", , 1))
If SpalteStart = 0 Then Exit Sub
With wks
'Anzahl Spalten mit Titel
Spalten = Application.WorksheetFunction.CountA(.Rows(1)) - SpalteStart + 1
'Titel einlesen
Set Titel = .Range(Cells(1, SpalteStart), Cells(1, SpalteStart + Spalten - 1))
'Titel Kopieren
I = Spalten + SpalteStart
Mal = 1
Do Until I = 257
For J = 1 To Spalten
.Cells(1, I) = Titel(1, J) & Mal
I = I + 1
If I = 257 Then Exit For
Next
If I + Spalten > 256 Then Exit Do
Mal = Mal + 1
Loop
End With
End Sub

mfg
Franz
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 14:57:44
Peter
Hi Franz,
das funktioniert einwandfrei...Nur eine Bitte hätte ich noch: Das soll alles automatisch ablaufen (also ohne Input-Box). Das Kopieren soll in der 6.Spalte beginnen (hatte ich vorhin nicht erwähnt, damit das Beispiel noch überschaubar bleibt). Wenn du dafür auch eine Lösung parat hättest wäre ich überglücklich. Viele Grüße aus der WM-Stadt München
Anzeige
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 15:05:08
fcs
Hi,
passe folgende Zeilen an: 

'Startspalte eingeben
SpalteStart = 6
With wks
'Anzahl Spalten mit Titel

mfg
Franz
AW: Spaltenüberschriften fortlaufend beschriften
06.06.2006 15:38:23
Peter
Super :-) Weltklasse!!!!
Vielen Dank
;

Forumthreads zu verwandten Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
FIFO mit VBA (Endlosschleife?)
Bernhard

Hallo liebe Experten,
da ich in VBA noch ziemlich unbeleckt bin, habe ich zur Lösung einer FIFO Aufgabenstellung u.a. VBA Lösung ergoogelt, die eigentlich funktioniert, lediglich der 2. Teil Starting_Inventory läuft scheinbar in eine Endlosschleife. Was ist falsch? Habe auch ein Beispielda...
21.08.2008 21:06:36
Thread-ID: 1003636
24 Beiträge
Kann jemend ein VBA Kurs empfehlen
TomTom

Hi,
ich soll von meiner Firma aus eine VBA (Excel) Kurs besuchen, so 3-4 Tage. Kann jemand ein Institut empfehlen, das solche qualifizierte Kurse anbietet ?
Danke Tom
10.10.2008 11:51:00
Thread-ID: 1015544
6 Beiträge
Werte in verschiedenen Subs verwenden
Urs

Liebe Alle
Ich wähle eine Zelle aus und speichere die gesamte Selection in einerObject-Variable (Rechtsklick auf Zelle, Start eines Makros aus dem kontextsensitiven Menue).
Dann gehe ich auf ein anderes Sheet (innerhalb des gleichen Workbooks) und wähle eine Zelle darin an. (Rechtsklic...
30.10.2008 12:53:41
Thread-ID: 1020565
3 Beiträge
Anzeige
Verwendung Add-Inn Funktion in VBA - Fehler 438
gothino

Hallo zusammen, habe folgendes Problem:
Habe folgende Funktion programmiert und verwende diese als Add-Inn:
Public Function BSOptionHW(AssetPrice As Double, StrikePrice As Double, r As Double, D_rf As _ Double, Vola As Double, T As Double, CallPut As String) End Function
Jetzt p...
31.10.2008 12:16:00
Thread-ID: 1020853
7 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
Anzeige
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Anzeige
Variablendeklaration über Sub hinaus
bruno

hallo
Meine Variable möche ich auch in den untersub abfragen.
Wenn ich sie im ersten sub definiere mit "Private easy As String" gibt es eine Fehlermeldung "Ungültiges Attribut in Sub oder Fuktion". Wie muss ich es definieren, damit ich es auch abfragen kann?
danke
de Bruno
17.04.2009 11:44:38
Thread-ID: 1069290
4 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
Anzeige
Excel, Sheet immer mit EINER Sub beenden
Jaffi

Hallo Forum,
nun habe ich meine App nachgebaut und es funzt auch weider alles so wie es sollte *freu*
Aber bevor ich mir wieder was kaputt mache frage ich mal wieder die Profies. Mit einem X Button _
starte ich eine Sub, welche mir die entsprechenden Sheets säubert und die wichtige...
31.07.2009 18:40:29
Thread-ID: 1092796
3 Beiträge
VBA : Aufruf Sub2() innerhalb eines Sub1()
Hajo
Hallo Andreas
Gruß Hajo
16.04.2002 21:49:31
Thread-ID: 113895
2 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