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
1620to1624
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
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Text aus Zelle laut Anzahl kopieren

VBA Text aus Zelle laut Anzahl kopieren
22.04.2018 19:45:21
Simone
Hallöchen Zusammen,
ich bin ganz neu hier und habe ein Problem womit ich ohne eure Hilfe nicht weiter komme.
In einer Tabelle steht in den Zellen N12:N16 jeweils eine Anzahl
In den Zellen O12:O16 steht ein Text. Dieser soll nun laut der Zahl rechts entsprechend oft kopiert werden.
Das Ergebnis sollte dann in Spalte B ab Zeile 13 eingetragen werden.
Wisst ihr wie genau ich das meine?
Vielleicht ein Beispiel:
Spalte N
2
3
Spalte O
F1
F2
Ergebnis
Spalte B (ab Zeile 12)
F1
F1
F2
F2
F2
Vielen lieben Dank im Voraus!
Herzliche Grüße, Simone

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Text aus Zelle laut Anzahl kopieren
22.04.2018 20:14:10
Oberschlumpf
Hi Simone,
kannst du uns per Upload bitte eine Excel-Bsp-Datei senden, die, wie von dir beschrieben, einige Bsp-Daten enthält?
Zumindest ich verstehe noch nicht den Zusammenhang deiner Bsp-Spalten.
Ciao
Thorsten
AW: VBA Text aus Zelle laut Anzahl kopieren
22.04.2018 20:34:04
Sepp
Hallo Simone,
Modul Modul1 
Option Explicit 
 
Sub createList() 
Dim varInput As Variant, varOutput() As Variant 
Dim lngIndex As Long, lngN As Long, lngC As Long, i As Long 
 
With Sheets("Tabelle1") 'Tabellenname - Anpassen! 
  varInput = .Range("N12:O16") 
  lngC = Application.Sum(.Range("N12:N16")) 
  Redim varOutput(1 To lngC) 
  For lngIndex = 1 To Ubound(varInput, 1) 
    If IsNumeric(varInput(lngIndex, 1)) Then 
      If varInput(lngIndex, 1) > 0 Then 
        For lngN = 1 To varInput(lngIndex, 1) 
          i = i + 1 
          varOutput(i) = varInput(lngIndex, 2) 
        Next 
      End If 
    End If 
  Next 
  .Range("B12").Resize(lngC, 1) = Application.Transpose(varOutput) 
End With 
 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: VBA Text aus Zelle laut Anzahl kopieren
22.04.2018 21:15:06
Simone
Vielen lieben Dank Sepp!! Genau das was ich wollte!
Jetzt kann ich beruhigt schlafen :)
Wünsche euch allen einen schönen Abend und einen guten Start in die neue Woche
LG, Simone
Wenn dir also VBA recht ist und du Sepps ...
23.04.2018 02:58:48
Luc:-?
…Pgm auch an deine Bedingungen anpassen kannst, Simone,
sollte das ja reichen. Wenn nicht und VBA recht ist, könntest du aber auch mit universellen UDFs in einer pluralen MatrixFml (über alle Zellen der jeweiligen Spalte) arbeiten. Da musst du dann auch nichts in deren Pgmm anpassen, musst nur die richtigen Bereiche angeben.
Für deine BspDatei lauteten die beiden MatrixFmln dann so:
B13:B24: {=MTRANS(SplitVx(MxJoin(MTRANS(SplitVx(GLÄTTEN(WIEDERHOLEN(" "&O13:O18;$N13:$N18));;;MAX($N13:$N18))))))}
(Und für die Texte in passender Spalte wie folgt)
{=MTRANS(SplitVx(MxJoin(MTRANS(SplitVx(GLÄTTEN(WIEDERHOLEN(" "&P13:P18;$N13:$N18));;;MAX($N13:$N18))))))}
ArchivLinks:
SplitVx (Vs1.6) https://www.herber.de/bbs/user/84157.xls (DownLoad BspDatei)
MxJoin (Vs1.1) https://www.herber.de/forum/archiv/1364to1368/1366681_Verketten_anhand_von_Kriterien.html#1366803
Morrn, Luc :-?
Anzeige
AW: Wenn dir also VBA recht ist und du Sepps ...
23.04.2018 07:46:36
Simone
Vielen lieben Dank für deine Hilfe.
Wollte die Formeln gerade testen da sich diese Variante auch ganz interessant anhört.
Leider klappt es bei mir nicht. Was mach ich denn falsch?
Hast du meine Bsp. Datei gesehen?
Müde Grüße 
Hattest du die verlinkten UDFs denn auch ...
23.04.2018 11:56:02
Luc:-?
…in ein allgemeines Modul des VBA-Projekts deiner Mappe einkopiert, Simone?
Anderenfalls kann die Fml nämlich nicht fktionieren, weil Xl die UDFs dann nicht kennt! Dabei auch evtl Hinweise auf benötigte Enumerationen u.ä. beachten! (Bessere Alternative: UDFs in einem AddIn [….xlam] sammeln, dieses in Xl einbinden und Tabellen nur als Werte ohne Fmln weitergeben.)
Da du (Sepps r)eine VBA-Lösung nicht ausgeschlossen hattest, nahm ich an, du weißt das.
Falls es dann immer noch nicht fktionieren sollte, könnte es daran liegen, dass in der UDF SplitVx noch ein kleiner Fehler ist, der aber meistens nicht wirksam wird, oder du noch etwas vergessen hast.
🙈 🙉 🙊 🐵 Gruß, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …
Anzeige
Ganz ohne VBA mit einfachen Formeln
23.04.2018 07:46:38
Daniel
Hi
1. in die Zelle M12 kommt der Wert 12 (die erste Zeile des Ergebniszellbereichs)
2. in die Zelle M13 bis M17 (also eine Zeile weiter als du Daten hast) kommt die Formel: =M12+N12
3. in die Zelle B12 kommt die Formel 

=Wenn(Zeile()>=M17;"";SVerweis(Zeile();M$12:O$16;3;wahr)

Diese Formel ziehst du dann soweit nach unten wie benötigt (Zelle M17-1)
Gruß Daniel
AW: VBA Text aus Zelle laut Anzahl kopieren
23.04.2018 08:42:27
snb 

Sub M_snb()
sn = Application.Transpose(Split(Join([transpose(if(N2:N100="","",rept(O2:O100 & ",",N2:N100)) _
)], ""), ","))
Cells(13, 2).Resize(UBound(sn)) = sn
End Sub

Anzeige

371 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

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