Top-Themen

Aktuelle Themen (A bis Z)

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, 4580 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 Tabelle
Frage von samsamsamMicrosoft Office17 Kommentare

Hallo Ich habe ein Problem mit einer Tabelle In der ersten Tabebelle hab ich Namen aufgelistet und 1 Zelle ...

Microsoft Office
Werte aus einer Excel Tabelle in eine andere importieren.
gelöst Frage von Enoch23Microsoft Office6 Kommentare

Hallo alle zusammen, seit ca. 2 Stunden suche ich nach einer Lösung für mein Problem, und finde keins. Der ...

Microsoft Office
Werte in einer Tabelle zählen mit Excel
Frage von achkleinMicrosoft Office8 Kommentare

Hallo, ich führe eine Excel-Tabelle mit von mir ausgestellten Rechnungen. In jeder Zelle steht der Name, die Kundennummer und ...

Microsoft Office
Excel-Tabelle bearbeiten in Word
Frage von has.andMicrosoft Office

In unsrem Unternehmen gibt es Tausende Word-Files in denen Excel-Tabellen integriert sind welche sich natürlich mit einem, im Hintergrund ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
Frage von HelloWorldBatch & Shell16 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...

Hardware
Fujitsu Workstation mit K80 und Quadro P5000, Fehlermeldung: Connect Power Adapter
Frage von MachelloHardware7 Kommentare

Hallo Zusammen, ich benötige euren Rat da ich ratlos bin. Folgende Konfiguration im Büro: Fujitsu Workstation Celcius R940 Power ...