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

Mitglied: iroquois-plisken

iroquois-plisken (Level 1) - Jetzt verbinden

23.08.2006, aktualisiert 24.08.2006, 15220 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 ...

VB for Applications

Excel VBA Eine oder mehrere Zellen Verschieben

gelöst Frage von batchnewbieVB for Applications2 Kommentare

Hallo, Ich habe in A1 eine Dropdown Liste mit den Werten 1, 2, 3. In A2, A3, A4 usw. ...

Neue Wissensbeiträge
Peripheriegeräte
Unterschrank für HP Drucker
Tipp von NixVerstehen vor 1 TagPeripheriegeräte2 Kommentare

Als kurzen Freitags-Tipp möchte ich gerne meinen neuen Drucker-Unterschrank Modell Amica KS 15423W vorstellen. Das Gerät eignet sich hervorragend ...

Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 2 TagenWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 2 TagenWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 4 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Heiß diskutierte Inhalte
Humor (lol)
Freitagsfrage: Was tun, wenn der Admin der DAU ist?
gelöst Frage von VoiperHumor (lol)32 Kommentare

Moin Zusammen, Eine nicht ganz ernst gemeinte Frage an die Außendienstler unter uns. Zusammenfassung: Ein Inhouse Admin ruft bei ...

Windows Netzwerk
LTE Modul - Kein Internet trotz Verbindung
Frage von killtecWindows Netzwerk19 Kommentare

Hallo, ich habe hier ein Dell 7390 2-in-1 mit W10 Pro wo ich nachträglich eine LTE-Karte (Original Dell DW5811e ...

LAN, WAN, Wireless
HP Probook 470 G4 - abbrechende Downloads
Frage von joern1LAN, WAN, Wireless19 Kommentare

Folgendes Problem, für einen Tipp wäre ich dankbar: Bei WLAN-Verbindung zum Internet (nicht LAN) kommt es bei etwas größeren ...

Router & Routing
Routing Problem mit Kaskade FritzBox und pfsense zugeriff nur von der firewall auf die clients und 0.0.0.0
Frage von ukl1967Router & Routing18 Kommentare

Hallo, ich habe ein an sich triviales Problem elches ich allerdings nicht gelöst bekomme. NAS 10.5.10.53 Mein Netz baut ...