Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon sveninho vom 20.01.2019, 17:20 Options
Bin ratlos beim Tabellen vergleichen...HILFE
Hallo!
Ich habe eine (für mich) schwierige Aufgabe. Möchte sie unbedingt per vba lösen. Schließlich muss ich das ja auch mal lernen...
Also, ich habe 2 Arbeitsblätter
"Tabelle 1" & "Tabelle 2".
In Tabelle 1, Spalte B stehen Abkürzungen.
In Tabelle 2, Spalte A steht die Abkürzung, in Spalte B die Übersetzung.
Ich möchte jetzt jedes Mal, wenn die Abkürzung in Tabelle 1 gefunden wird, die Übersetzung in Tabelle 1, Spalte D eintragen lassen.
Ich probiere seit einer Woche und bekomme es nicht hin.
Bin für Lösungen mega-dankbar!!!!
Ich habe eine (für mich) schwierige Aufgabe. Möchte sie unbedingt per vba lösen. Schließlich muss ich das ja auch mal lernen...
Also, ich habe 2 Arbeitsblätter
"Tabelle 1" & "Tabelle 2".
In Tabelle 1, Spalte B stehen Abkürzungen.
In Tabelle 2, Spalte A steht die Abkürzung, in Spalte B die Übersetzung.
Ich möchte jetzt jedes Mal, wenn die Abkürzung in Tabelle 1 gefunden wird, die Übersetzung in Tabelle 1, Spalte D eintragen lassen.
Ich probiere seit einer Woche und bekomme es nicht hin.
Bin für Lösungen mega-dankbar!!!!
Antwort 1 von nighty vom 20.01.2019, 17:59 Options
hi sveninho
ein beispiel :-)
gruss nighty
Sub test()
Dim suche As Range
Dim zaehler As Long
Do
zaehler = zaehler + 1
Set suche = Sheets(2).Range("A:A").Find(Sheets(1).Cells(zaehler, 2))
If Not suche Is Nothing Then
Sheets(1).Cells(zaehler, 4) = Sheets(2).Cells(suche.Row, 2)
End If
Loop While Not zaehler > Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
End Sub
ein beispiel :-)
gruss nighty
Sub test()
Dim suche As Range
Dim zaehler As Long
Do
zaehler = zaehler + 1
Set suche = Sheets(2).Range("A:A").Find(Sheets(1).Cells(zaehler, 2))
If Not suche Is Nothing Then
Sheets(1).Cells(zaehler, 4) = Sheets(2).Cells(suche.Row, 2)
End If
Loop While Not zaehler > Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
End Sub
Antwort 2 von sveninho vom 20.01.2019, 18:55 Options
Hallo nightly!
Wie beunruhigend...Ich rätsele eine Woche und
von Dir bekomme ich die perfekte Antwort nach einer halben Stunde :-)
Muss dringend einen vba-Kurs belegen.
Vielen Dank!!!!!
Wie beunruhigend...Ich rätsele eine Woche und
von Dir bekomme ich die perfekte Antwort nach einer halben Stunde :-)
Muss dringend einen vba-Kurs belegen.
Vielen Dank!!!!!
Ähnliche Themen
Tabellen vergleichen
neuling03 21.03.2007 - 483 Hits -
Zeile mit Zeile vergleichen in Excel
mond_sterne183 30.08.2007 - 363 Hits - 1 Antwort
2 Excel Tabellen vergleichen und identische Zellen farbig hinterlegen
Chris23 02.02.2008 - 1566 Hits - 3 Antworten
2 Excel-Tabellen vergleichen und neue Tabelle erstellen
Menke 26.02.2008 - 1294 Hits - 1 Antwort
2 spalten aus 2 Exceltabellen vergleichen
judipauli 29.04.2008 - 1109 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
