Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwert hochzählen

Forumthread: Zellwert hochzählen

Zellwert hochzählen
Jürgen
Hallo zusammen!
Ich möchte gerne einen Zellwert hochzählen bis der Wert der Zelle erreicht ist und dies in so vielen Zeilen ausgeben, wie der Zellwert vorgibt, jeweils immer um 1 erhöht. Ich denke in der angehängten Datei wird es deutlicher. Mein VBA ist schon ganz gut, nur das "Zellwert hochzählen" bekomme ich nicht abgebildet. Ziel ist das Drucken von Etiketten entsprechend der Anzahl des Zellwertes (Etikett 1 von 5, Etikett 2 von 5, etc.)
https://www.herber.de/bbs/user/70313.xls
Vielen Dank vorab!!
Grüße Jürgen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellwert hochzählen
28.06.2010 20:50:41
Josef

Hallo Jürgen,
ich würde das so lösen.

Sub createList()
  Dim vntOrg As Variant, vntResult() As Variant
  Dim lngIndex As Long, lngC As Long, lngN As Long
  
  On Error GoTo ErrExit
  
  With Sheets("Lagerliste")
    vntOrg = .Range("A2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    Redim vntResult(1 To Application.Sum(.Range("C2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)), 1 To 4)
  End With
  
  For lngIndex = 1 To UBound(vntOrg, 1)
    For lngC = 1 To vntOrg(lngIndex, 3)
      lngN = lngN + 1
      vntResult(lngN, 1) = vntOrg(lngIndex, 1)
      vntResult(lngN, 2) = vntOrg(lngIndex, 2)
      vntResult(lngN, 3) = lngC
      vntResult(lngN, 4) = vntOrg(lngIndex, 3)
    Next
  Next
  
  With Sheets("Datenbank_LEIDER_IST")
    .Range("A:C").ClearContents
    .Range("A1").Resize(UBound(vntResult, 1), 4) = vntResult
  End With
  
  ErrExit:
  If Err.Number > 0 Then
    MsgBox "Fehlernummer:" & vbTab & Err.Number & vbLf & vbLf & _
      "FehlerText:" & vbTab & Err.Description, vbExclamation, "Fehler"
  End If
End Sub

Gruß Sepp

Anzeige
AW: Zellwert hochzählen
29.06.2010 12:47:14
Jürgen
Hallo Sepp,
besten Dank, hat wunderbar funktioniert. Ich habe es noch auf meine Bedürfnisse angepasst, nun komme ich gut zurecht! Herzlichen Dank für die schnelle Antwort!
Grüße Jürgen
;

Forumthreads zu verwandten Themen

Array benennen nach Zellwerten
chris

Hallo VBA Experten,guten morgen.
habe eine frage und zwar wie ist es möglich ein Array zu benennen ?
Momentan habe ich es so...
Dim kriterien(20)
Dann wenn ich in den Debugger gehe steht dort
kriterien(0)
kriterien(1)
kriterien(2)
usw...
Wie erreiche ich es...
13.08.2008 06:52:02
Thread-ID: 1001351
5 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Anzeige
Tb.Blatt nach Zellwert speichern
Peter

Guten Morgen allerseits,
mir raucht als VBA Neuling der Schädel, vielleicht könnt Ihr mir helfen. Ich versuche Tabelle 2 in Abhängigkeit einer Zelle in Tabelle 1 in einem bestimmten Ordner zu speichern, wobei das speichern erst
zulässig sein darf wenn alle einzugebenen Daten vorhanden s...
28.08.2008 09:50:00
Thread-ID: 1005302
3 Beiträge
Zellwerte zählen
Markus

Hallo,
ich habe folgendes Problem:
Spalte 1 Spalte 2
Probe 1 DAD
Probe 1 DAD
Probe 1 TIC
Probe 1 XIC
Probe 2 DAD
Probe 2 DAD
Probe 2 DAD
Probe 2 TIC
Probe 2...
29.08.2008 13:45:00
Thread-ID: 1005821
4 Beiträge
Anzeige
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Entspricht doppeltes Hochkomma Zellwert >0?
Jesko

Hallo an alle,
wer kann mir sagen, welchem Zellwert das doppelte Hochkomma entspricht.
Hier der Zusammenhang:
In Spalte K meiner Tabelle wird ein Liefertermin genannt (Format: TT.MM.JJJJ).
In Spalte S ist der tatsächlich erreichte Liefertermin aufgeführt (Format wie oben).
I...
15.09.2008 17:51:31
Thread-ID: 1009863
6 Beiträge
Zellwert übertragen
chrissey

Hallo Leut,
hab ne relativ allgemeine Excelfrage. Kann man bei Klick auf eine Zelle den Zellwert auf eine andere
Zelle übertragen. Also angenommen ich habe folgenden Zellbereich:
A
1 Hans
2 Peter
3 Klaus
4 Thomas
5...
30.09.2008 08:24:00
Thread-ID: 1013243
3 Beiträge
Datum in Abhängigkeit eines Zellwertes setzten
Tom

Guten Morgen,
Ich hab hier ein aktuelles Problem das ich schnellstens lösen muss.
Meine Tabelle besteht aus den Spalten A bis Q. In Spalte P wird ein "X" eingetragen was den Datensatz in ein neues Tabellenblatt kopiert was auch super funktioniert.
Nun möchte mein Chef das wenn das "...
07.10.2008 07:37:00
Thread-ID: 1014581
6 Beiträge
Excel-Zellwert in Word einfügen
Alexander

Hallo zusammen,
tolles Forum.
Ich habe folgendes Problem: Ich habe ein Word-Dokument mit Formular-Felder.
Diese sollen mit Werten aus einer Excel-Tabelle gefüllt werden.
Der VBA-Code muss im Word-Dokument stehen.
ActiveDocument.FormFields("text1").Result = workbooks("Mappe1....
23.10.2008 21:31:00
Thread-ID: 1018804
6 Beiträge
Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Zeilenwerte abhängig von Zellwert
Zellwert

Hallo Excelfreunde,
wie lässt sich folgendes bewerkstelligen?
Im Zellbereich A2:A13 stehen fortlaufend die Zahlen 1 bis 12. Wenn ich nun in die Zelle A1 die Zahl 1 eingebe, soll mir in B1 der Zellwert derjenigen Zelle der Spalte B aus derjenigen Zeile, in der in Spalte A die Zahl 1 steh...
31.12.2008 15:52:08
Thread-ID: 1036162
6 Beiträge
Anzeige
Zeilen löschen mit Zellwert über...
Norbert

Hallo,
habe folgende Frage:
Wie schreibt man als Makro: lösche alle Zeilen deren Inhalt in Spalte K kleiner 180 ist.
Besten Dank für RüA!
27.01.2009 17:46:00
Thread-ID: 1044330
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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