Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1364to1368
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
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

Anzeige
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

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

308 Forumthreads zu ähnlichen 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
Anzeige
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
sverweis mit variable auf externe datei
Joni

Hi,
ich suche eine Lösung um mittels sverweis aus anderen Dateien/Tabellen Werte auszulösen. Die Schwierigkeit liegt darin, dass der Dateiname aus einer Zelle ausgelesen werden soll (der Pfad ist immer der gleiche). Die andere Datei ist nicht geöffnet und sollte dies wenn möglich auch nicht...
09.06.2009 23:34:03
Thread-ID: 1080301
4 Beiträge
Anzeige
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
Tabellenblätter um 1 erhöhen bzw. hochzählen
Mike

Hallo zusammen.
Ich hatte vor länger Zeit schon einmal angefragt...
www.herber.de/forum/archiv/1076to1080/t1076338.htm
...jedoch bis heute leider keinerlei Hilfe erhalten.
Bitte, kann mir keiner helfen? Ich bräuchte dringend Hilfe!
Vielen Dank im Voraus.
Gruß Mike
21.10.2009 23:47:21
Thread-ID: 1111214
3 Beiträge
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
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 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

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
6
3
3
3
4
4
2
4
11
2
6
7
5
2
6
2
5
5
1
3
6
15
2
16
1