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, 4434 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 VBA Termindaten aus Tabelle Filtern

Frage von t3jxbus zum Thema Microsoft Office ...

Microsoft Office
Excel Daten aus diversen Tabellen sammeln (9)

Frage von FitforLife zum Thema Microsoft Office ...

VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Microsoft Office
gelöst Hyperlink zu einer bestimmten Registerkarte in einer Excel-Tabelle (2)

Frage von immobrauch zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (15)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...