Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel Tabellen verschachteln

Frage Entwicklung VB for Applications

Mitglied: MaceWindu

MaceWindu (Level 1) - Jetzt verbinden

13.12.2012, aktualisiert 09:04 Uhr, 4310 Aufrufe, 3 Kommentare

Hallo Leute!

Kann mir bitte wer bei einem Makro für Excel 2007 helfen? Es möge mir im Vorhinein verziehen sein dass ich keine Makro-Spezialist bin .

In Spalte „A“ und „B“ stehen jeweils Werte in unbestimmter Menge. Meistens so zwischen 100 und 200 Zeilen.
A B
=PFM1+ERG1-W200=PFM1+ERG1-B2001
=PFM1+ERG1-W2002=PFM1+ERG1-B2002
=PFM1+ERG1-W2003=PFM1+ERG1-B2003
=PFM1+ERG1-W2004=PFM1+ERG1-B2004
=PFM1+ERG1-W2005=PFM1+ERG1-B2005
=PFM1+ERG1-W2006=PFM1+ERG1-B2006
=PFM1+ERG1-W2021=PFM1+ERG1-B2021
=PFM1+ERG1-W2022=PFM1+ERG1-B20221


Jetzt sollen die Werte aus Spalte B nach Spalte A in dieselbe Zeile verschoben werden, und zwar so dass sie unterhalb in der selben Zeile stehen. Soll fertig dann so aussehen:

A B
=PFM1+ERG1-W200
=PFM1+ERG1-B2001

=PFM1+ERG1-W2002
=PFM1+ERG1-B2002

=PFM1+ERG1-W2003
=PFM1+ERG1-B2003

=PFM1+ERG1-W2004
=PFM1+ERG1-B2004

=PFM1+ERG1-W2005
=PFM1+ERG1-B2005

=PFM1+ERG1-W2006
=PFM1+ERG1-B2006

=PFM1+ERG1-W2021
=PFM1+ERG1-B2021

=PFM1+ERG1-W2022
=PFM1+ERG1-B20221




Hab mir mal im Internet etwas zusammengesucht (Danke an den unbekannten Autor):

Sub Verschachteln()
'
' Leerzeilen einfügen
'

'
For i = 3 To 1000 Step 2
Rows(i).Select
Selection.Insert
Next i

'
' verschachteln_verschieben2 Makro
'

'
Range("B2").Select
Selection.Cut
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveSheet.Paste

Dim lAnzahl As String
'Dim i As Long
Anf:
lAnzahl = InputBox("Geben Sie hier die Anzahl der zu verarbeitenden Datensätze ein! (Im Zweifel eine grössere Zahl eingeben)", , 500)

'Prüfen ob eine Zahl eingegeben wurde
For i = 1 To CLng(lAnzahl)
ActiveCell.Offset(1, 1).Range("A1").Select
Selection.Cut
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveSheet.Paste
Next i
End Sub


Ist ganz nett, aber nicht ganz die Lösung. Verschiebt die Werte aus B in eine eigene Zeile in Spalte A. Kann dies jemand umbasteln oder gibt’s da ne bessere Lösung?

Besten Gruß,

MaceWindu

Mitglied: LianenSchwinger
13.12.2012 um 09:52 Uhr
Hallo,

sind die Werte in den Spalten A und B vom Typ Text?
Wenn ja kannst Du doch einfach die beiden Spalten "Verketten" und die Zelle mit Zeilenumbruch formatieren.

01.
=VERKETTEN(A1;ZEICHEN(10);B1)
Gruß Jörg
Bitte warten ..
Mitglied: MaceWindu
13.12.2012 um 11:41 Uhr
Yop, das gefällt mir noch besser als mit Makro. Da bastel ich eine vorformatierte Vorlage, der MA muss nur mehr die Werte reinkopieren.

Vielen Dank!
Bitte warten ..
Mitglied: TsukiSan
13.12.2012 um 11:50 Uhr
Hallo MaceWindu,

du kannst aber nicht in A1 die Verkettung mit A1 eingeben,
da ein Zirkelbezug nicht zugelassen wird (aus Sternzeitgründen )

Gruss
Tsuki
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel Daten aus diversen Tabellen sammeln (9)

Frage von FitforLife zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Dateien durchsuchen und Teile extrahieren (7)

Frage von Beranavan zum Thema Microsoft Office ...

Microsoft Office
gelöst Suchfunktion Excel einbauen (6)

Frage von lupi1989 zum Thema Microsoft Office ...

Microsoft Office
gelöst Micorsoft Excel: Variable Anzeige von mehreren Werten anhand von Stammdaten (1)

Frage von sammy65 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(6)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft Office
Saubere HTML aus Word-Dokument (16)

Frage von peterpa zum Thema Microsoft Office ...

Router & Routing
ASUS RT-N18U mit VPN Client hinter Fritzbox - Portforwarding (15)

Frage von marshall75000 zum Thema Router & Routing ...

Hosting & Housing
gelöst Webserver bei WIX, aber DNS Server wo anders (9)

Frage von laster zum Thema Hosting & Housing ...