Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle unter bestimmten Umständen kopieren

Zelle unter bestimmten Umständen kopieren
12.08.2013 14:39:42
Markus
Hallo ich hab folgendes Problem.
In B1 wird ein Text eingetragen und in C1 eine Zahl, jetzt soll der Text aus B1 so oft in die Spalte A kopiert werde wie es in C1 steht. Anschließend werden die Werte in B1 und C1 geändert und das neue kopierte darf erst ab der nächsten freien Zelle in der Spalte A kopiert werden. Oder es wird dazwischen kopiert.
B1= tomaten C1= 3
A= Tomaten
Tomaten
Tomaten
B1= Senf C1= 2
A= Tomaten
Tomaten
Tomaten
Senf
Senf
Ich hoffe das Beispiel verdeutlicht mein Problem.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle unter bestimmten Umständen kopieren
12.08.2013 14:49:38
JACKD
Hallo Markus
so kann es aussehn
Guten Hunger =)
Sub Gemuesesalat()
With Worksheets("Tabelle1")
'''Salatzutaten einkaufen
Gemuese = .Cells(1, 2).Value
AnzahlBeilagen = .Cells(1, 3).Value
letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
''Schauen ob auch wirklich eine Schüssel drunter steht
If letzteZeile = 1 Then letzteZeile = 0
''Salat zubereiten
For i = letzteZeile + 1 To letzteZeile + AnzahlBeilagen
.Cells(i, 1) = Gemuese
Next i
End With
End Sub
Grüße

AW: Zelle unter bestimmten Umständen kopieren
12.08.2013 15:45:49
Markus
Ich bekomme immer den Fehler:
Laufzeitfehler 13
Typen unverträglich
Hab eine einfache Tabelle eingefügt wie ich deinen Beitrag verstanden habe.
https://www.herber.de/bbs/user/86809.xlsm

Anzeige
AW: Zelle unter bestimmten Umständen kopieren
12.08.2013 16:01:34
JACKD
Hallo Markus
Ist auch logisch das du nen Laufzeitfehler bekommst, wenn du es auf deinem Beispiel hin aufgebaut hast.
Und zwar hast du als Quelle für das Gemüse B1 und als Quelle für die Anzahl C1 genannt (ursprünglich)
Bei deinem jetzigen Beispiel ist es allerdings B2 bzw C2
Zusatzinformation: Da in dem Fall C1 keine Zahl ist, sondern ein Text kann er mangels Zahl auch keine Anzahl bestimmen.
Daher nun angepasst auf deine Mustermappe
https://www.herber.de/bbs/user/86810.xlsm
Grüße

AW: Zelle unter bestimmten Umständen kopieren
12.08.2013 16:50:23
Markus
Manchmal sieht man den Wald vor lauter Bäumen nicht ich danke dir läuft super

Anzeige
Danke für die Rückmeldung owT
13.08.2013 14:29:42
JACKD
owT = ohne weiteren Text

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige