Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Adressdatensätze kopieren

Adressdatensätze kopieren
03.08.2007 09:23:02
sascha
Hallo !
Ich hätte da ein Problem.
Ich möchte in einer Adressdatei (Name, Vorname, ......., Menge) das "Menge-Feld" abfragen und diesen Wert (z.B. 3) nutzen um diesen entsprechenden Datensatz dann noch zweimal zu kopieren.
Ist:
Müller, Peter, ...., 3
Soll
Müller, Peter, ...., 3
Müller, Peter, ...., 3
Müller, Peter, ...., 3
Würde mich über ein Tipp sehr freuen !
Gruß
Sascha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Adressdatensätze kopieren
03.08.2007 10:03:00
Peter
Hallo Sascha,
z. B. so:


Option Explicit
Public Sub Doppeln()
Dim lLetzte  As Long
Dim lZeile   As Long
Dim iAnzahl  As Integer
Dim iIndex   As Integer
   Application.ScreenUpdating = False
   With Worksheets("Tabelle1")  ' <== ggf. Tabellenblattnamen anpassen !!!
      lLetzte = IIf(.Range("A65536") <> "", 65536, .Range("A65536").End(xlUp).Row)
      For lZeile = lLetzte To 1 Step -1
         If .Range("C" & lZeile).Value <> "" Then
            If IsNumeric(.Range("C" & lZeile).Value) And _
               CInt(.Range("C" & lZeile).Value) > 1 Then
               iAnzahl = CInt(.Range("C" & lZeile).Value) - 1
               For iIndex = 1 To iAnzahl
                  .Rows(lZeile).Insert Shift:=xlDown
                  .Rows(lZeile + 1).Copy Destination:=.Rows(lZeile)
               Next iIndex
            End If
         End If
      Next lZeile
   End With
   Application.ScreenUpdating = True
End Sub 


Gruß Peter

Anzeige
AW: Adressdatensätze kopieren
03.08.2007 10:41:00
sascha
Bestens !!!
Vielen Dank für die schnelle Hilfe !

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige