Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ausgewählte Adressen an Wordserienbrief übergeben

ausgewählte Adressen an Wordserienbrief übergeben
21.01.2006 12:55:09
Sören
Hallo an alle Helfer hier im Forum.
Mein heutiges Problem:
Alle markierten Zeilen des Tabellenblattes 2 sollen per Makro kopiert und in Tabellenblatt 1 kopiert (entstehende Leerzeilen müssen gelöscht werden) und anschließend an das Worddokument Serie1.doc übergeben werden. Geht das und wenn ja, wie?
Oder gibt es eine elegantere Lösung um nur ausgewählte Adressen an einen Wordserienbrief zu übergeben?
Vielen Dank für eure Hilfe

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ausgewählte Adressen an Wordserienbrief überge
21.01.2006 13:10:37
Ramses
Hallo
"...Oder gibt es eine elegantere Lösung ..."
Im Word-Dokument den Seriendruckmanager aufrufen
Die Datenquelle wählen und dort die Adressen selektieren oder einen Filter setzen ;-)
Gruss Rainer
ausgewählte Adressen an Wordserienbrief überge
21.01.2006 13:30:20
Sören
Hallo Rainer,
ja, das habe ich schon probiert nur leider sind die Daten in der Tabelle dafür zuviel, so dass Word schlapp macht. Deswegen wollte ich die Daten vorher selektieren - über das 1. Tabellenblatt.
Gruss Sören
AW: ausgewählte Adressen an Wordserienbrief überge
21.01.2006 13:44:59
HansH
Hallo Sören
mal nen Vorschlag zur Systematik, Code hab ich aber nicht parat:
Erst filtern, dann gefilterte Daten in neue Datei speichern.
oder wenn es nur daran liegt, dass zuviele Tabellenblätter mit Daten vorhanden sind und die Datei deshalb zu groß ist, dann das relevante Tabellenblatt in neue Excel-Datei speichern.
Gruß
Hans
Anzeige
Makro - auf 3 Spalten begrenzen
21.01.2006 16:27:58
Sören
Hallo und Danke für eure Hilfe.
Ich habe folgenden Code zusammengebaut und möchte ihn jetzt auf die Spalte F - H
begrenzen. Das heißt wenn ich "Müller" als Suchwort eingebe, soll nur in den 3 Spalten danach gesucht werden - nicht bei Straße oder Ort.

Sub MultiSelect()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim lngRow As Long
Dim strFind As String, strSearch As String
strSearch = InputBox("Suchbegriff:", , "test")
Set rngFind = Cells.Find(strSearch)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = strFind Then Exit Do
Loop
End If
rngRows.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A2").Select
ActiveSheet.Paste
Range("A2").Select
End Sub

Kann mir jemand helfen?
Danke Sören
Anzeige
AW: Makro - auf 3 Spalten begrenzen
21.01.2006 16:35:22
Josef
Hallo Sören!
Ungetestet!
Sub MultiCopy()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim strFind As String, strSearch As String

strSearch = InputBox("Suchbegriff:", , "test")

Set rngFind = Range("F:H").Find(strSearch)

If Not rngFind Is Nothing Then
  
  strFind = rngFind.Address
  
  Do
    
    If rngRows Is Nothing Then
      Set rngRows = rngFind.EntireRow
    Else
      Set rngRows = Union(rngRows, rngFind.EntireRow)
    End If
    
    Set rngFind = Range("F:H").FindNext(After:=rngFind)
    
  Loop While Not rngFind Is Nothing And strFind <> rngFind.Address
  
End If

If Not rngRows Is Nothing Then
  rngRows.Copy Sheets("Tabelle1").Range("A2")
End If

Set rngFind = Nothing
Set rngRows = Nothing

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Danke Sepp, dass war's
21.01.2006 20:14:31
Sören
Danke Sepp, dass war's
Viele Grüße
Sören

85 Forumthreads zu ähnlichen Themen

Word-Serienbrief mit versch. Daten aus Excel
Stephan

Hallo zusammen,
habe folgendes Problem: Ich möchte die Nebenkostenabrechnungen für Mieter als Serienbrief erstellen. Die Daten hierfür sind allerdings in verschiedenen Excell-Dateien zu suchen.
Beispiel: Ich habe ein Objekt 1 ("O1"), 30 Mieter. In der Excel-Datei befinden sich die Gesam...
18.06.2009 14:54:26
Thread-ID: 1082615
4 Beiträge
Anzeige
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo, leider war mein letzter Beitrag schon wieder zu ... hier nocheinmal die Problematik:
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf...
19.01.2010 14:59:16
Thread-ID: 1131070
2 Beiträge
Anzeige
Tool um Tabellenausschnitt in Beitrag einfügen
Stefan

Hallo,
ich habe hier schon versucht einen Ausschnitt aus einer Tabelle einzufügen, weil es mir zur Erklärung meines Problems genauso effizient erschien wie eine Arbeitsmappe hochzuladen. Das hat nicht so geklappt wie ich mir das vorstellte. Jetzt habe ich gesehen, daß Mitarbeiter hier solch...
25.02.2011 11:40:53
Thread-ID: 1202928
5 Beiträge
Eine Tabelle in Code einfügen
David

Hallo,
ich hab dieses Problem hier vor kurzem schon gepostet, aber leider keine Antwort bekommen die funktioniert hat. In dem untenstehenden Code soll eine weitere tabelle "all_data_alt" hinzugefügt werden.
Diese Tabelle soll genauso wie die jetzige Tabelle "all_data_neu" durch das Makr...
11.03.2011 13:47:21
Thread-ID: 1205313
3 Beiträge
Bereich aus Tabellenblat in neue Datei einfügen
Werner

Hallo Excelfreunde
könnt Ihr helfen.Ich habe hier einen Code von Beate Schmitz Geschrieben am: 03.10.2008 23:32:05
1)Der Code kopiert jedoch das Gesamte Blatt und nicht nur den Bereich A1:G48.
2)Wenn ich 'Columns("H:T").Delete aktiviere löscht er die Spalten im Orginalblatt und nich...
29.05.2011 21:14:34
Thread-ID: 1216611
3 Beiträge
Probleme beim Einfügen von Zahlen in meine Tabelle
Zahlen

Hallo alle zusammen,
ich hoffe ihr könnt mir helfen. Ich hoffe es macht nicht allzuviel Mühe.
ich möchte gerne Inhalt einer Tabelle auf einer Internetseite in eine Excel-Tabelle kopieren, mit dem Ziel die Tabelle anders zu sortieren als im Internet dargestellt.
In Spalte B stehen Za...
24.06.2011 19:13:48
Thread-ID: 1219568
3 Beiträge
Tabelle kopieren und in andere Datei einfügen
VBAmateur

Hallo an alle,
nachdem ich mich hier schon mehrfach mit Code bedient habe, möchte ich erstmal allen danken die sich die Mühe machen für "Gottes Lohn" anderen zu helfen.
Für die Lösung meines aktuellen Problems konnte ich leider nicht das richtige finden. Vielleicht können mir die Profis...
11.11.2011 21:33:05
Thread-ID: 1237564
8 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
6
1
3
4
2
2
2
7
1
2
2
1
4
1
3
1
4
4
3
1
1
1
27