Suchen/ersetzen Makro

Guten Morgen zusammen,
ich soll kurzfristig für meinen Chef eine sich selbstaktualisierende Excel Tabelle basteln, die sich ihre Daten selbstständig aus Excel SAP-Export Tabellen zieht und für eine Pivot-Tabelle vorbereitet.
Soweit habe ich, ohne jegliche VBA-Erfahrung, den Großteil umsetzen können. Nur an 2 Problemen bin ich leider gescheitert. Große Problem war die schiere Masse der durchzuarbeitende Daten (Blatt 1 ca. 15.000 Zeilen, Spalten A bis O ;variiert), Blatt 2 (ca. 2.500 Zeilen, Spalte A bis D; variiert).
Habe schon stundenlang Google bemüht, habe aber leider nichts wirklich passendes finden können. Ich hoffe hier kann man mir weiterhelfen. Und wenn wer ein gutes Buch/Seite kennt um das Programmieren in VBA zu lernen wäre ich auch dankbar. ^^
Dann danke ich schonmal für eure Hilfe und hier die beiden Probleme:
Problem 1:
Wenn eine Zelle aus einer bestimmter Spalte (N) auf Blatt 1 leer,
dann Eintrag "leer" in gleicher Zeile ,aber Spalte B vornehmen,
Wenn nicht leer (irgendein Inhalt vorhanden),
dann anderen Eintrag in gleicher Zeile "voll" vornehmen (gleiche Zelle wie bei voll)
Anzahl der Gesamtzeilen variiert hier.
Problem 2:
Inhalt in einer bestimmten spalte in Blatt 2 abgleichen, ob gleicher Eintrag auf Blatt in einer bestimmten spalte vorhanden,
wenn ja 2 Zellen aus der gleichen Zeile auf Blatt 2 in die gleiche Zeile auf Blatt 1 eins übernehmen, wo der Eintrag gefunden wurde,
wenn nein zur nächsten Zeile in Blatt 2 springen.
Wiederholen bis alle Einträge auf Blatt 2 abgearbeitet sind
(Anzahl der Einträge variiert auch hier)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub LeerVoll() Dim RNG As Range Dim EZ As Integer, SP As Integer, LR As Double EZ = 2 ' erste Zeile, wegen Überschrift? SP = 14 'Spalte N With Sheets("Blatt1") LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte Set RNG = .Range(.Cells(EZ, SP), .Cells(LR, SP)) If WorksheetFunction.CountBlank(RNG) > 0 Then RNG.SpecialCells(xlCellTypeBlanks).Offset(0, -12).Value = "leer" End If If WorksheetFunction.CountA(RNG) > 0 Then RNG.SpecialCells(xlCellTypeConstants, 3).Offset(0, -12).Value = "voll" End If End With End Sub

Habs jetzt so gelöst, danke Nochmal! :)
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(INDEX(Kostenstellen!C3,MATCH(Datenbasis!RC3,Kostenstellen!C1,0)),"""")"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(INDEX(Kostenstellen!C2,MATCH(Datenbasis!RC[-1],Kostenstellen!C1,0)),"""")"
Dim lngLetzte As Long 'letzte Zeile
With Sheets("Datenbasis")
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
'Formel aus L1 runterkopieren:
.Range(.Cells(2, 2), Cells(lngLetzte, 2)).Formula = .Cells(2, 2).Formula
'Alternativ Formel aus L2 runterkopieren (Falls Überschriften in 1. Zeile):
'.Range(.Cells(2, 12), Cells(lngLetzte, 12)).Formula = .Cells(2, 12).Formula
End With
Dim lngLetzte2 As Long 'letzte Zeile
With Sheets("Datenbasis")
'letzte Zeile auffinden:
lngLetzte2 = .UsedRange.Rows.Count + .UsedRange.Row - 1
'Formel aus L1 runterkopieren:
.Range(.Cells(2, 4), Cells(lngLetzte, 4)).Formula = .Cells(2, 4).Formula
'Alternativ Formel aus L2 runterkopieren (Falls Überschriften in 1. Zeile):
'.Range(.Cells(2, 12), Cells(lngLetzte, 12)).Formula = .Cells(2, 12).Formula
End With

Dim lngLetzte As Long 'letzte Zeile Dim RNG As Range With Sheets("Datenbasis") lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1 Set RNG = .Range(.Cells(2, 2), .Cells(lngLetzte, 2)) RNG.FormulaR1C1 = _ "=IFERROR(INDEX(Kostenstellen!C3,MATCH(Datenbasis!RC3,Kostenstellen!C1,0)),"""")" RNG.Value = RNG.Value 'macht aus Formeln Werte '...

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E
1	Materialstatus	Einrichtung	Kostenstelle	Bezeichnung	BelegDat
2	Durchläufer	Stadt 1	abc000	Kostenstelle 1	08.12.16
3	Durchläufer	Stadt 2	abc001	Kostenstelle 2	01.03.17
4	Durchläufer	Stadt 3	abc002	Kostenstelle 3	01.03.17

verwendete Formeln
Zelle	Formel	Bereich	N/A
B2:B4	=WENNFEHLER(INDEX(Kostenstellen!$C:$C;VERGLEICH($C2;Kostenstellen!$A:$A;0));"")
D2: D4	=WENNFEHLER(INDEX(Kostenstellen!$B:$B;VERGLEICH($C2;Kostenstellen!$A:$A;0));"")

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread