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, 4228 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 ..
Neuester Wissensbeitrag
Off Topic

"Ich habe nichts zu verbergen"

(2)

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Microsoft Office
Excel Daten aus diversen Tabellen sammeln (9)

Frage von FitforLife zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 - Zwei Tabellen vergleichen (Zugriffsprüfung) (2)

Frage von d4shoerncheN zum Thema Microsoft Office ...

Microsoft Office
MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
CPU, RAM, Mainboards
Kaufberatung für mind. 8 verschiedene HighEnd-Mainboards (23)

Frage von yperiu zum Thema CPU, RAM, Mainboards ...

Mac OS X
Mac kann nicht im LAN pingen alle anderen schon (19)

Frage von smartino zum Thema Mac OS X ...

Hyper-V
Langsames Netzwerk i210 LAN Karte (10)

Frage von Akcent zum Thema Hyper-V ...

Windows Server
Server 2016 - Kuriositäten (8)

Frage von certifiedit.net zum Thema Windows Server ...