Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..

Forumthread: Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..

Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..
03.06.2014 05:28:45
Alex
Hi!
Ich habe kürzlich angefangen das Forum zu nutzen und habe schon bei einem denke ich kniffligeren Problem super Hilfe bekommen. Danke dafür! Habe jetzt zwar For Next Schleifen gelernt, aber damit bekomme ich es nicht hin, weil ich nicht weis wie ich die Zellwerte richtig einbaue.
Ich vermute/hoffe das Problem dürfte den Profis hier weniger Kopfweh bereiten als mir :/
Hier eine Musterdatei:
https://www.herber.de/bbs/user/90958.xlsm
Ich habe zwei Zellen.
A7 gibt an wie oft eine Spaltennummerierung vervielfältigt werden soll (bspw. 3 mal)
C7 gibt an wie oft hochgezählt werden soll (bspw. 10 mal)
Beginnend mit Zelle F4 würde es bei 3 und 10 dann so aussehen:
F4=1 G4=1 H4=1 I4=2 J4=2 K4=2 L4=3 M4=3 ... bis 10 mal je 3 Werte nebeneinander stehen.
Ein Ansatz der mich auf die richtige Spur bringt wäre super (:
Vielen Dank,
Grüße
Alex

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..
03.06.2014 07:28:49
hary
Moin
Teste mal, ist noch ohne den Bereich vorher zu loeschen, ob du es so meinst. 
Dim anzahl As Long
Dim Zaehler As Long
Dim spalte As Long
spalte = 6 'Anfangsspalte
Zaehler = 1
For anzahl = 1 To Cells(7, 3)
Cells(4, spalte).Resize(1, Cells(7, 1)) = was
Zaehler = Zaehler + 1
spalte = spalte + Cells(7, 1)
Next

gruss hary

Anzeige
AW: Korrektur
03.06.2014 07:31:40
hary
Moin nochmal
Hat sich ein fehler eingeschlichen. 
Dim anzahl As Long
Dim Zaehler As Long
Dim spalte As Long
spalte = 6 'Anfangsspalte
Zaehler = 1
For anzahl = 1 To Cells(7, 3)
Cells(4, spalte).Resize(1, Cells(7, 1)) = Zaehler
Zaehler = Zaehler + 1
spalte = spalte + Cells(7, 1)
Next

gruss hary

Anzeige
AW: Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..
03.06.2014 08:14:30
MarcR
Hallo Alex,
mein Vorschlag:
Sub test()
Dim anzahl As Integer
Dim zaehler As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
anzahl = ThisWorkbook.Worksheets(1).Cells(7, 1).Value
zaehler = ThisWorkbook.Worksheets(1).Cells(7, 3).Value
k = 6
For i = 1 To zaehler
For j = 1 To anzahl
ThisWorkbook.Worksheets(1).Cells(4, k) = i
k = k + 1
Next j
Next i
End Sub
Grüße
Marc

Anzeige
AW: Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..
03.06.2014 09:21:31
Rudi
Hallo, 
Sub aaa()
Dim n As Long, m As Long
Dim arr(), a As Long
ReDim arr(1 To 1, 1 To [a7] * [c7])
For m = 1 To [c7]
For n = 1 To [a7]
a = a + 1
arr(1, a) = m
Next
Next
[f4].Resize(, a) = arr
End Sub

Gruß
Rudi

AW: Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..
03.06.2014 10:10:26
Alex
Hallo Hary, Marc und Rudi
Klasse, das ging ja super schnell!
Obwohl Hary`s Makro bereits lief habe ich natürlich alle ausprobiert.
Sie laufen alle auf anhieb tadellos (:
Absolut Spitze!
Vielen Dank!
Gruß,
Alex

Anzeige
AW: Mehrfache Spaltennummerierung z.B. 1, 1, 2, 2, 3..
03.06.2014 12:00:23
EtoPHG
Hallo Alex,
Und wieso VBA ?
Das ist doch mit einer Formel einfach zu lösen: 
=WENN(SPALTE(A1)
und nach rechts kopieren, bis der Arzt kommt!
Gruess Hansueli

Besser mit FORMEL...
03.06.2014 12:15:56
EtoPHG
Hallo Alex,
Korrigiere obige Formel auf: 
=WENN(SPALTE(A1)
Gruess Hansueli

Anzeige
AW: Besser mit FORMEL...
05.06.2014 14:40:33
Alex
Hallo Hansueli
Das ist natürlich auch eine klasse Lösung!
Ich habe jetzt das Makro gelassen, weil dann eine 'wenn Zelle xy = "" dann Spalte löschen' Schleife in meiner Datei funktioniert. Ich bin nicht sicher ob er die Formel dann als "" erkannt hätte, auch wenn sie "" ausgibt. Falls das so wäre hätte man das wohl mit einer 'If IsNumber oder IsNumeric Else' Abfrage hinbekommen, aber wenn etwas läuft rühr ich es erst wieder an wenn es Probleme macht (: aber vielen dank für deine Lösung!
Grüße,
Alex
Anzeige
;

Forumthreads zu verwandten Themen

Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Verweis auf andere Tabelle mit Variable
Ralf

Hallo zusammen,
ich benötige Hilfe.
Ich habe eine Übersichtsdatei in der
='G:\Werkstatt\Kunde Ordner\[Kalkulation 11.xls]Deckblatt'!$AA$53
immer wieder in ähnlicherweise vorkommt.
Ich möchte es mir vereinfachen und z.B. in Zelle A3 "Kalkulation 11" schreiben.
Und dann f...
25.03.2009 14:48:52
Thread-ID: 1063809
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
SVerweis mit variablem Spaltenindexergebnis
Dirk

Hallo zusammen,
ich habe folgendes Problem:
Ich habe zwei Tabellen; in der einen stehen Namen und ein Suchkriterium und in der anderen sollen die Namen, die neben dem Suchkriterium aufgelistet sind übertragen werden.
Beispiel:
Spalte A_______Spalte B
__P1__________Müller
...
25.08.2009 10:38:59
Thread-ID: 1098346
5 Beiträge
Anzeige
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Addition: Zelle A1 + B1; Ergebnis in Zelle B1; Nac
reiner

Hallo Leute,
vor 2 Tagen hatte ich einen Beitrag unter der gleichen Überschrift an dieses Forum gesandt.
Hajo_Zi gab mir den Rat: unter Optionen Iteration 1 zu aktivieren. Das habe ich getan, die Berechnung funktionierte auch.
Allerdings habe ich erst danach festgestellt dass zu dem...
08.05.2010 11:08:09
Thread-ID: 1156186
8 Beiträge
Verweisen auf Zellbereich mit Variable
heicumed

Hallo zusammen,
ich habe ein kleines VBA-Problem, bei dem ich eure Hilfe brauchen könnte.
Ich will die leeren Zellen in einer Tabelle zählen, aber nur bis zu einer bestimmten Endzeile, die über ein Textfeld eingegeben wird.
So ungefähr sieht mein Plan in der Theorie aus - funktionie...
19.05.2011 17:10:40
Thread-ID: 1215240
6 Beiträge
Zellwert um 1 erhöhen
Walter

Hallo Excelfreunde,
Ich möchte den Zellwert(A1) 2500, per Mausklick oder einem Tastendruck um 1 erhöhen.
Danke für Euere Hilfe.
Gruß
Rentner Walter
17.05.2012 13:53:49
Thread-ID: 1263866
3 Beiträge
ZELLE + 1
Walter

Hallo Excelfreunde,
Gibt es die Möglichkeit eine Zelle nach "x" sek. um 1 zu erhöhen?
Wenn möglich ohne VBA
Gruß
Walter
09.02.2013 10:18:28
Thread-ID: 1298420
6 Beiträge
ZELLE + 1
Walter

Hallo Excelfreunde,
Gibt es die Möglichkeit eine Zelle nach "x" sek. um 1 zu erhöhen?
Wenn möglich ohne VBA
Gruß
Walter
09.02.2013 10:18:44
Thread-ID: 1298421
2 Beiträge
Zelle bei Speichern +1
Rudolf

Hallo,
ich habe im VBA- Editor unter "DieserArbeitsmappe" folgendes eingegeben Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets("Interface").Range("H1") = Now() End Sub
damit soll er immer wenn ich auf Speichern klicke das Aktuelle Datum und die Uh...
10.02.2013 19:30:48
Thread-ID: 1298608
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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