VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 16:38:49	Mirko
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 20:09:48	ralf_b
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 21:11:07	mirko
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	08.05.2022 10:31:58	ralf_b
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 21:23:11	Gast51354
Nachtrag	07.05.2022 21:30:32	Gast51354
Versuch	07.05.2022 22:24:29	mirko
Ergänzung: Tbl Rng = B9:UA98; und B8:UA8 die "hilfszeile"	07.05.2022 22:41:03	Gast97841
Versuch	08.05.2022 06:53:05	Gast25005

Ansicht des Beitrags:

Von:
mirko

Datum:
07.05.2022 22:24:29

Views:
671

Rating:

Antwort:

Thema:
Versuch

Erstmal Danke.

habe mal versucht, es auf meine situation anzupassen.

1. Leider klappt der Test nicht, "Compile error: Wrong numvbrt of arguments or invalid property assignment" .....Und dann markiert er "Call Analyze_Min_Good(rngcell)" gelb......warum? Woanders geht das auch, liegt das am rngcell oder daran, dass es ein anderes Modul ist?

2. ich verstehe " ' falls wir links von Spalte B landen, gibt es keinen Inhalt in der Zeile1" nicht. Wieso sollte das passieren?

Sub Analyze ()
  
' Bestimme Bereich: B8:%8
' - % ist dabei die Unbekannte, welche per Range.End(xlToLeft) bestimmt wird
Set rngHeaderHelpers = wks.Range("B8", wks.Cells(1, wks.Columns.Count).End(xlToLeft))
  
' falls wir links von Spalte B landen, gibt es keinen Inhalt in der Zeile1
If rngHeaderHelpers.Column < 2 _
    Then Exit Sub
  
For Each rngcell In rngHeaderHelpers.Cells
  
    'MIN'
    If InStr(rngcell.Value, "MIN") > 0 Then
        Call Analyze_Min_Good(rngcell)
        Call Analyze_Max_Bad(rngcell)
    End If
  
    'MAX'
    If InStr(rngcell.Value, "MAX") > 0 Then
        Call Analyze_Min_Bad(rngcell)
        Call Analyze_Max_Good(rngcell)
    End If
  
Next
  
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 16:38:49	Mirko
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 20:09:48	ralf_b
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 21:11:07	mirko
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	08.05.2022 10:31:58	ralf_b
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird	07.05.2022 21:23:11	Gast51354
Nachtrag	07.05.2022 21:30:32	Gast51354
Versuch	07.05.2022 22:24:29	mirko
Ergänzung: Tbl Rng = B9:UA98; und B8:UA8 die "hilfszeile"	07.05.2022 22:41:03	Gast97841
Versuch	08.05.2022 06:53:05	Gast25005