Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)
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 :-)
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
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

301 Forumthreads zu ähnlichen 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
Anzeige
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
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
esc Endlosschleife beenden
Michael

Hallo!
Benötige eine Schleife die die ganze Zeit im Hintergrund läuft. Bei ESC soll sie abgebrochen werden.
Mein Bescheidener Versuch!
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Sub Schleife()
Do
DoEvents
If (GetAsync...
22.01.2009 19:46:00
Thread-ID: 1042718
8 Beiträge
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
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
Anzeige

Links zu Excel-Dialogen

InputBox

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
23
5
2
6
1
8
7
4
3
8
2
4
21
1
6
7
3
3
2
4
11
2
4
4