Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte A vergleichen und SpalteB kopieren

Forumthread: Spalte A vergleichen und SpalteB kopieren

Spalte A vergleichen und SpalteB kopieren
18.01.2005 18:17:08
Wolfgang
Hallo zusammen,

Ich habe im Netzwerk eine Tabelle mit dem Namen Mitarbeiter.
MA Ort
Müller Münster
Meier Bochum

usw.

In einer 2 Tabelle habe ich auch die MA ohne den Ort.
Wie kann ich automatisch den Ort aus der Tabelle Mitarbeiter an die Tabelle
2 anfügen.
In der aktuellen Tabelle kommt der Mitarbeiter öfter vor.
Die Tabelle 2 wird täglich neu erstellt und ich möchte nicht immer über
sverweis per Hand das ganze machen.
Wenn möglich per VBA
Dank und Gruß
Wolfgang
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte A vergleichen und SpalteB kopieren
18.01.2005 18:57:07
Josef
Hallo Wolfgang!
Die Tabellennamen und evtl. die Spalten musst du anpassen!


      
Dim rng As Range
'by J.Ehrensberger
'Suchbegriffe und Suchspalte jeweils "A"
Dim rFind As Range
Dim rng As Range
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
Set wksQ = Sheets("Tabelle1") 'Tabelle min Name und Ort
Set wksZ = Sheets("Tabelle2") 'Tabelle mit Namen

lastRow = IIf(wksZ.Range("A65536") <> "", 65536, _
            wksZ.Range("A65536").End(xlUp).Row)
            
   For Each rng In wksZ.Range("A1:A" & lastRow)
      If rng <> "" Then
      Set rFind = wksQ.Range("A:A").Find(What:=rng)
         If Not rFind Is Nothing Then
            rng.Offset(0, 1) = rFind.Offset(0, 1)
         End If
      End If
   Next
End Sub 
Gruß Sepp
Anzeige
da ist was Schiefgelaufen!
18.01.2005 19:00:26
Josef
Hallo nochmal!
Da ist beim Kpieren was schiefgegangen! ;-)


      
Sub vergleichenKopieren()
'by J.Ehrensberger
'Suchbegriffe und Suchspalte jeweils "A"
Dim rFind As Range
Dim rng As Range
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
Set wksQ = Sheets("Tabelle1") 'Tabelle min Name und Ort
Set wksZ = Sheets("Tabelle2") 'Tabelle mit Namen

lastRow = IIf(wksZ.Range("A65536") <> "", 65536, _
            wksZ.Range("A65536").End(xlUp).Row)
            
   For Each rng In wksZ.Range("A1:A" & lastRow)
      If rng <> "" Then
      Set rFind = wksQ.Range("A:A").Find(What:=rng)
         If Not rFind Is Nothing Then
            rng.Offset(0, 1) = rFind.Offset(0, 1)
         End If
      End If
   Next
End Sub 
Anzeige
AW: Spalte A vergleichen und SpalteB kopieren
Wolfgang
Hallo Josef,
erstmal danke für die schnelle Antwort.
Kann ich auf eine Mappe zugreifen die im Netzwerk liegt.
Z.B. G:\data\mitarbeiter.xls Tabelle1
AW: Spalte A vergleichen und SpalteB kopieren
18.01.2005 19:26:36
Josef
Hallo Wolfgang!
Dann so:


      
Sub vergleichenKopieren()
'by J.Ehrensberger
'Suchbegriffe und Suchspalte jeweils "A"
Dim rFind As Range
Dim rng As Range
Dim wkb As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lastRow As Long
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
Set wkb = Workbooks.Open("G:\data\mitarbeiter.xls")
Set wksQ = wkb.Sheets("Tabelle1") 'Tabelle min Name und Ort
Set wksZ = Sheets("Tabelle2") 'Tabelle mit Namen

lastRow = IIf(wksZ.Range("A65536") <> "", 65536, _
            wksZ.Range("A65536").End(xlUp).Row)
            
   For Each rng In wksZ.Range("A1:A" & lastRow)
      If rng <> "" Then
      Set rFind = wksQ.Range("A:A").Find(What:=rng)
         If Not rFind Is Nothing Then
            rng.Offset(0, 1) = rFind.Offset(0, 1)
         End If
      End If
   Next
wkb.Close , False
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub 
Anzeige
AW: Spalte A vergleichen und SpalteB kopieren
Wolfgang
Hallo Josef,
du bist ja schneller als die Feuerwehr.
klappt super
Besten Dank
Wolfgang Roßbach
;

Forumthreads zu verwandten Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Spalte auslesen und in eine neue schreiben
Andrej

Hallo,
ich sitz seit gestern an nem Excel Dokument und habe es schon mit Formeln versucht, aber das alles nicht das Wahre.
Gibt es eine Lösung bei der ich aus der Spalte C nach bestimmten Sachen suchen lassen, die ich immer vorgeb, wie z.b. XY oder AB und er mir auch der Vorgabe nach in...
19.11.2008 12:46:00
Thread-ID: 1025987
13 Beiträge
Anzeige
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Ergebnis auslesen und in andere Spalte übertragen
Alex

Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit...
17.03.2009 08:16:28
Thread-ID: 1060992
5 Beiträge
Anzeige
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
nur bestimmte Zelleninhalte speichern
Peter

Guten Morgen allerseits,
ich habe mir ein Rechnungsformular erstellt. Gibt es irgendeine Möglichkeit, dass nur die eingegebenen
Daten, wie zum Beispiel Name, Adresse, Datum usw. gespeichert werden und nicht das ganze Formular?
Ich möcht mich schon mal im vorraus für Euere Hilfe beda...
29.06.2009 08:37:16
Thread-ID: 1084996
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige