Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hilfe Copy and Paste via VBA

Forumthread: Hilfe Copy and Paste via VBA

Hilfe Copy and Paste via VBA
19.07.2003 20:09:28
Chaled
Liebe Kollegen,
ich habe ein kleines Problem. In einer Arbeitsmappe habe ich in einem Sheet mehr als 500 Datensätze. Diese Datensätze möchte ich in einem Datenbank einfügen. Deshalb möchte ich sie erstmals normalisieren
Mein Problem ist folgendes: Ich möchte folgende Struktur via VBA
In der Sheet("Stammdaten") habe ich folgende Struktur
Spalte (A) Spalte(b) Spalte(C) Spalte(D)
Nr System1 System2 System3
1 x x
2 x x
3 x x x
in eine neue sheet mit folgenden Strukur überführen
Spalte (A) Spalte(B)
nr Systemtyp
1 system1
1 system2
2 system2
2 system2
3 system1
3 system2
3 system3
Kann jemanden mir ein kleines Makro, eine kleine Stück VBA-Programm, schreiben oder irgendwie helfen. Ich bedanke mich für Eure Hilfe
Mit freundlichen Grüssen
chaled
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe Copy and Paste via VBA
19.07.2003 20:57:52
PeterW
Hallo Chaled,
mit guten VBA-Kenntnissen sollte dir dieser Ansatz helfen:
Option Explicit

Sub Struktur()
Dim lgZiel As Long
Dim bCol As Byte
Dim lgQuelle As Long
Dim wks As Worksheet
Set wks = Sheets(2)
lgZiel = 2
lgQuelle = 2
Do Until IsEmpty(Cells(lgQuelle, 1))
For bCol = 2 To 4
If Not IsEmpty(Cells(lgQuelle, bCol)) Then
wks.Cells(lgZiel, 1) = Cells(lgQuelle, 1)
wks.Cells(lgZiel, 2) = Cells(1, bCol)
lgZiel = lgZiel + 1
End If
Next
lgQuelle = lgQuelle + 1
Loop
End Sub

Gruß
Peter

Anzeige
Vielen Dank
20.07.2003 12:05:20
chaled
Hallo Peter,
vielen Dank. Es hat funktioniert. Du hast mir dabei sehr viel geholfen. Nochmal vielen Dank
MFG
Chaled

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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