MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 20.10.2017, 13:02   #1
FFM18
Neuer Benutzer
Neuer Benutzer
Standard VBA - Text aus zwei Spalten in dritte schreiben

Hallo zusammen,
ich bräuchte noch einmal Eure Hilfe.

In Spalte „N“ muss der Text aus Spalte „D“ und Spalte „E“ mit einem Leerzeichen dazwischen rein.
In einer normalen Excel-Tabelle wäre das kein Problem, aber ich baue hier eine Vorlage, wo ich keine Formeln hinterlegen kann. Entsprechend bräuchte ich einen VBA-Code hierfür.
Das zweite Problem, ich weiß nicht, um wie viele Datensätze es sich jeweils handeln wird.
Die Spalte „B“ ist die einzige, die in jedem Datensatz ausgefüllt sein muss.

Vielen Dank!!
FFM18 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 16:17   #2
FFM18
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,
ich habe mich noch einmal versucht:

Sub verketten()
With Sheets("Tabelle1")
.Range("N2").Value = Range("D2").Value & " " & Range("E2").Value
End With
End Sub

Hiermit wird die gewünschte Verknüpfung erstellt.
Dummerweise nur für die erste Zeile.
Einen Tabellenbereich kann ich aber nicht angeben, da ich nicht weiß, wie viele Zeilen die zu bearbeitende Tabelle enthalten wird.

Habt Ihr eine Idee für mich?

DANKE
FFM18 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 17:32   #3
Hasso
MOF Meister
MOF Meister
Standard

Hallo FFM18,

bei mir geht das so:
Code:

Option Explicit

Sub verketten()

Dim lngLetzteZeile As Long
Dim lngZeile As Long

With Sheets("Tabelle1")
  lngLetzteZeile = .Cells(Rows.Count, "B").End(xlUp).Row
  For lngZeile = 2 To lngLetzteZeile
    .Cells(lngZeile, "N") = .Cells(lngZeile, "D") & " " & .Cells(lngZeile, "E")
  Next lngZeile
End With
End Sub

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 17:41   #4
FFM18
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Hasso,

bei mir funktioniert das auch.
Vielen Dank!!

Habe bald eine Woche Urlaub und dafür habe ich mir schon ein besonders dickes Buch über VBA-Programmierung geholt.
Ich hoffe nur, dass das alles in meinen Kopf passt.
Das Thema ist nicht so einafch, wie es aussieht.

Vielen Dank nochmals,
hoffe, ich bin jetzt mit der Vorlage durch.

Gruß
Andreas
FFM18 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:41 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.