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, 4275 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
Excel 2010 - Zwei Tabellen vergleichen (Zugriffsprüfung) (2)

Frage von d4shoerncheN zum Thema Microsoft Office ...

Sicherheits-Tools
Sicherheitstest von Passwörtern für ganze DB-Tabellen (1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Microsoft Office
Hilfe bei Erstellung eines Suchfelds im Excel (1)

Frage von ZeeRee zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
Lokales Adminprofil defekt (18)

Frage von Yannosch zum Thema Windows 7 ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (11)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...