Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If IsError then

If IsError then
08.11.2016 09:32:32
Berndt
Hallo zusammen,
folgender Codebestandteil muss angepasst werden, ich weiß nur nicht wie:
              If IsError(Application.Match(a(i, 1), Worksheets(a(i, 3)).Range("B1:B" &  _
bis), 0)) Then 'Doppelte Werte werden vermieden
Sheets(a(i, 3)).Range("B" & bis) = a(i, 1)
Sheets(a(i, 3)).Range("C" & bis) = a(i, 4)
Sheets(a(i, 3)).Range("B8:C8").Copy  ' da ist das gleiche Format
Sheets(a(i, 3)).Range("B" & bis).Resize(, 2).PasteSpecial xlFormats
Sheets(a(i, 3)).Range("B" & bis).HorizontalAlignment = xlLeft
Sheets(a(i, 3)).Range("C" & bis).NumberFormat = "dd.mm.yyyy"
End If
Das Problem liegt dabei in der IsError-Formel bei dem B1.
Ich möchte nicht das die Formel ab B1 sucht, sondern ab Spaltenkopf "Themenspeicher" in Spalte B. Der steht irgendwo in Spalte B. Erst ab da soll die Formel laufen.
Wo muss ich Anpassungen vornehmen?
LG Berndt

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

Betreff
Datum
Anwender
Anzeige
AW: If IsError then
08.11.2016 09:37:41
Daniel
Hi
Worksheets(a(i, 3)).Range("B" & ab & ":B" & bis)
die Variable ab berechnest du so ( das muss natürlich vorher erfolgen):
ab = application.Match("Themenspeicher", Worksheets(a(i, 3)).Range("B:B"), 0)
Gruß Daniel
AW: If IsError then
08.11.2016 09:46:07
Berndt
Danke für deine Hilfe,
aber nun kommt der Fehler "Typen Unverträglich"

For i = 1 To UBound(a)
If a(i, 2) = "x" Then
bis = Sheets(a(i, 3)).Range("B2000").End(xlUp).Row + 1
Ab = Application.Match("Themenspeicher", Worksheets(a(i, 3)).Range("B:B"), 0)
If IsError(Application.Match(a(i, 1), Worksheets(a(i, 3)).Range("B" & Ab & ":B" &  _
bis), 0)) Then 'Doppelte Werte werden vermieden
Sheets(a(i, 3)).Range("B" & bis) = a(i, 1)
Sheets(a(i, 3)).Range("C" & bis) = a(i, 4)
Sheets(a(i, 3)).Range("B8:C8").Copy  ' da ist das gleiche Format
Sheets(a(i, 3)).Range("B" & bis).Resize(, 2).PasteSpecial xlFormats
Sheets(a(i, 3)).Range("B" & bis).HorizontalAlignment = xlLeft
Sheets(a(i, 3)).Range("C" & bis).NumberFormat = "dd.mm.yyyy"
End If
End If
Next

Anzeige
AW: If IsError then
08.11.2016 10:45:34
Daniel
Hi
das dürfte daran liegen, dass der Begriff "Themenspeicher" nicht gefunden werden konnte und du hier natürlich den Wert aus der Zelle, ab der gesucht werden soll, einsetzen musst.
Da ich deine Datei nicht kenne, kann ich natürlich nur irdendeinen Dummytext in den Code einsetzen, den du dann noch entsprechend anpassen musst.
Gruß Daniel
Zusatz?
08.11.2016 11:00:40
Berndt
Danke. Hatte einen Schusselfehler drinnen. Habs selber korrigiert und es funktioniert. Danke dafür.
Noch eine kleine Frage:
Mein neuer angepasster Teilbereich im Code lautet
    For i = 1 To UBound(a)
If a(i, 2) = "x" Then
bis = Sheets(a(i, 3)).Range("B2000").End(xlUp).Row + 1
Ab = Application.Match("aus Themenspeicher übertragen", Worksheets(a(i, 3)).Range("B: _
B"), 0)
If IsError(Application.Match(a(i, 1), Worksheets(a(i, 3)).Range("B" & Ab & ":B" &  _
bis), 0)) Then 'Doppelte Werte werden vermieden
Sheets(a(i, 3)).Range("B" & bis) = a(i, 1)
Sheets(a(i, 3)).Range("C" & bis) = a(i, 4)
Sheets(a(i, 3)).Range("B8:C8").Copy  ' da ist das gleiche Format
Sheets(a(i, 3)).Range("B" & bis).Resize(, 2).PasteSpecial xlFormats
Sheets(a(i, 3)).Range("B" & bis).HorizontalAlignment = xlLeft
Sheets(a(i, 3)).Range("C" & bis).NumberFormat = "dd.mm.yyyy"
End If
End If
Next
mit 
              Sheets(a(i, 3)).Range("B" & bis) = a(i, 1)
Sheets(a(i, 3)).Range("C" & bis) = a(i, 4)

überträgt es mir Werte in Spalte B und C in Tabelle ThemenSpeicher
mit 
              Sheets(a(i, 3)).Range("B8:C8").Copy  ' da ist das gleiche Format
Sheets(a(i, 3)).Range("B" & bis).Resize(, 2).PasteSpecial xlFormats

Wird von weiter oben (B8:C8) der Bereich kopiert um das Format für die neuen Werte in Spalte B un C zu übernehmen.
Was muss ich im letzten Codebereich verändern, um das Format via Makro festzulegen und nicht von einem fixen Bereich zu nehmen?
z.B. Rahmen links/rechts/unten
LB Berndt
Anzeige
AW: Zusatz?
08.11.2016 11:08:01
Daniel
HI
solche Fragen beantwortet man sich in der Regel selbst mit Hilfe des Makrorecorders, in dem man die Formatierungen von Hand durchführt und das mit dem Recorder aufzeichnet.
dann sieht man, wie die entsprechenden Befehle aussehen und kann über F1 auf die Hilfeseite zum jeweiligen befehl kommen (Cursor auf unbekannten Befehl setzen, dann F1 drücken) um zusätzliche Informationen abzurufen.
Dann weiß man, wie die Formatierung zu programmieren ist, bzw kann dann den aufgezeichneten Code entsprechend überarbeiten und die Zellbezüge anpassen.
allerdings würde ich dir empfehlen, hierzu nicht Excel 2007, sondern eine andere Excelversion zu verwenden (2010 oder auch 2003).
In 2007 zeichnet der Recorder nur unvollständig auf (den hat MS wohl nicht rechtzeitig fertig bekommen)
Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
Anzeige
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge

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
3
2
2
2
6
4
6
2
1
3
5
13
2
8
6
3
12
1
3
4
5
2
2
4