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

VBA / ausgewählte Zellen aus Excel-Tabelle per Knopfdruck in Word-Datei einfügen

Frage Entwicklung VB for Applications

Mitglied: iroquois-plisken

iroquois-plisken (Level 1) - Jetzt verbinden

23.08.2006, aktualisiert 24.08.2006, 14982 Aufrufe, 1 Kommentar

Hallo,

aus einer excel-datei werden z.B. in der zeile 2 das feld a,c und d markiert.
diese zellen werden dann in eine word-datei in eine tabelle (3 spalten, 8 zeilen) geschrieben:



Sub Aufkleber()

Dim r_Liste As Range
Dim r_Felder As Range
Dim r_Datensatz As Range
Dim word As Object
Dim int_AnzFelder As Integer
Dim int_Spalte As Integer
Dim str_Adresse As String

'Die Liste beginnt bei Zelle A1 und ist zusammenhängend
Set r_Liste = Range("a1").CurrentRegion
'In der ersten Zeile stehen die Spaltenüberschriften
Set r_Felder = r_Liste.Rows(1)
'Es wird die Anzahl der Felder festgehalten
int_AnzFelder = r_Felder.Columns.Count
'Dann wird der ausgewählte Datensatz ermittelt
Set r_Datensatz = Application.Intersect(r_Liste, ActiveCell.EntireRow)

''Dieser Datensatz wird zu einem gesamtstring zusammengesetzt
'For int_Spalte = 1 To int_AnzFelder
' str_Adresse = str_Adresse & r_Datensatz.Cells(int_Spalte) & vbCr
'Next

'Dieser Datensatz wird zu einem gesamtstring zusammengesetzt
For int_Spalte = 1 To int_AnzFelder
Select Case int_Spalte
Case 1, 3, 4 ' Wenn es die 1., 3. oder 4. Spalte ist, wird hinzugefügt
str_Adresse = str_Adresse & r_Datensatz.Cells(int_Spalte) & vbCr
Case Else ' andernfalls nicht
End Select
Next


'Wenn ein Datensatz ausgewählt worden ist
If Not r_Datensatz Is Nothing Then
'wird Word gestartet
Set word = CreateObject("Word.Application")
'sichtbar gemacht ( kann evtl. entfallen!)
word.Visible = True
'und ein neues Dokument auf der Basis der Vorlage Adressaufkleber.dot erstellt
word.Documents.Add Template:="G:\EDV\GP\Aufkleber.dot"

'In diesem neuen Dokument
With word.ActiveDocument
'wird in alle Tabellenzelle der zusammengesetzte String eingefügt
For Each c In .Tables(1).Range.Cells
c.Range.Text = str_Adresse
Next

'Am Schluss wird das ganze ausgedruckt
.PrintOut
End With

'Dann wird Word beendet (ohne Speichern, bei Bedarf auch mit)
word.Quit
Set word = Nothing
Else
MsgBox "Kein Datensatz ausgewählt!"
End If
End Sub



was ich jetzt noch bräuchte wäre erst einmal ein button damit das makro startet und eine eingabemaske für ein Anzahlfeld um anzugeben wieviele zellen in der word datei beschrieben werden.
Mitglied: miniversum
24.08.2006 um 13:48 Uhr
Für den Button:
Wähle im Menü: Extras -> Anpassen
Dort dann im Reiter Befehle links Makros auswählen. Dann das Symbol "Benutzerdefinierte Schaltfläche" einfach auf eine Symbolleiste ziehen.
Mit Rechtsklick auf das Symbols kannst Du anschließend ganz unten unter "Makro zuweisen" das Makro auswählen was beim anklicken gestartet werden soll. Weiter kann man auch beim Rechtsklick auf das Symbol ein anderes Zeichen auswählen, bearbeiten oder Text mit anzeigen lassen.

Für die Eingabe:
Schau mal in der Hilfe vom vba die "InputBox" an.

miniversum
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Ausgewählte Werte einer .SPF Datei per VBA in excel geziehlt einfügen
Frage von AndConVB for Applications2 Kommentare

Hallo liebe Admingemeinde! Ich mache gerade ein Praktikum und versuche seit Tagen folgendes umzusetzen: Ich habe eine reihe .SPF ...

VB for Applications
Excel VBA - Worddokument mit Formatierung erzeugen und Zellen einfügen
Frage von chef1568VB for Applications2 Kommentare

Hallo, ich möchte aus Excel herraus ein Word Dokument erstellen um verschiedene Bereiche aus der Excel-Tabelle in das Dokument ...

VB for Applications
Excel VBA Formel "WENN" einfügen
gelöst Frage von chef1568VB for Applications2 Kommentare

Hallo zusammen, ich möchte per Excel-Makro folgende Formel eintragen: EXCEL: VBA: Leider bekomme ich hier immer einen anwendungsrelevanten Fehler ...

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
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 9 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 9 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 17 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server15 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...

Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...