Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

worksheetfunction.max - Fehelrmeldung

worksheetfunction.max - Fehelrmeldung
22.04.2009 18:02:14
Hobi
Hallo an die Profis!
Ich möchte mit nachstender codzeile den Text aus einer Zelle 7 stellig in eine Variable einlesen.
Allerdings dann nur 7 stellig, wenn nicht vorher ein Leerzeichen folgt - dann nur bis zum Zeichen vor dem Leerzeichen.
Leider kommt mir eine Fehlermeldung und ich kann nicht festetellen, was ich falsch gemacht habe.
Besten Danke für die Unterstützugn im Voraus!
mfg. Hobi
wsnameabtl = wsname & " " & Application.WorksheetFunction.Max _
(Trim(Left(ActiveCell.Offset(0, 6), 7)), Left(ActiveCell.Offset(0, 6), _
InStr(ActiveCell.Offset(0, 6), " ")))

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Du scheinst da was durcheinander gebracht...
22.04.2009 18:50:54
Luc:-?
...zu haben, Hobi.
Texte kannst du nicht mit WshFct.Max bearbeiten! Wahrscheinlich meinst du aber...

With WorksheetFunction
wsnameabtl = wsname & " " & Trim(Left(ActiveCell.Offset(0, 6), _
.Max(7, InStr(ActiveCell.Offset(0, 6), " "))))
End With


Gruß Luc :-?

AW: Vorschlag: kleine Schritte
22.04.2009 18:54:52
Erich
Hi,
probiers doch mal in kleineren Schritten: 

Option Explicit
Sub aaa()
Dim strW As String, pp As Long
strW = ActiveCell.Offset(0, 6).Value
pp = Application.Min(7, InStr(strW, " "))
If pp = 0 Then pp = 7
MsgBox Left(strW, pp)
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: worksheetfunction.max - Fehelrmeldung
22.04.2009 23:27:01
Hobi
Hallo Luc!
Hallo Erich!
Super, so funktionierts!
Vielen, vielen Dank für die Unterstützung!
Ligrü Hobi
Bitte sehr! ;-) Gruß owT
23.04.2009 02:19:07
Luc:-?
:-?

70 Forumthreads zu ähnlichen Themen

maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
Anzeige
min und max wert in listbox per vba
kirsche

hallo leute,
dank beverly und tino bin ich ein ganzes stück schlauer und weiter gekommen, ich finde dieses forum einfach klasse und möchte ein großes lob euch allen aussprechen.
nun hab ich aber doch noch eine frage: in zwei weiteren textboxen möchte ich die kleinste und die größte span...
20.11.2008 12:47:01
Thread-ID: 1026383
8 Beiträge
Datum Minus 5Jahre in VBA
Modolo

Hallo Zusammen
Ich arbeite innerhalb eines Makros mit Filtern, ich bräuchte jetzt noch eine Lösung wie ich dort das aktuelle Datum minus 5 Jahre eingebe.
Hat da Jemand eine Lösung für mich?
Danke
Modolo
26.02.2009 13:14:16
Thread-ID: 1054345
10 Beiträge
Anzeige
Function in VBA
Josef

Hallo!
Wie kann ich bitte eine selbstgeschnitzte Function in VBA einsetzen? txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) 'If wks.Cells(ComboBox1.ListIndex + 1, 40) = "030" Then If txtBoxB1.Text = wks.Cells(ComboBox1.ListIndex + 1, 40) Then TextBox26.Text = BHZ End If Function B...
22.10.2009 13:35:47
Thread-ID: 1111362
5 Beiträge
Max in VBA
Dieter

Hallo zusammen,
die u.g. Berechnung des Max-Wertes funktioniert so nicht.
Sum3 = Evaluate("max((Daten!Kalwo=Aktuell)*(Daten!Ressource=Maschine)*(Daten!Schicht=1)*(Daten!Stillid=Still1))") , habe ich in meinem Mokro eingebaut.....
Wie muss sie korrekt aussehen ?
In der Tabellenfo...
23.05.2011 17:01:54
Thread-ID: 1215644
6 Beiträge
Achsenbeschriftung, VBA durch min max aus Zelle
Peter

Hallo liebe Leute,
ich habe wieder ein Problem.
Ich habe ein simples Leistung/Drehzal Diagramm in Abhängigkeit der Drehzahl.
Die Leistung ist links, als vertikale Primärachse, das Drehmoment rechts als vertikale Sekundärachse und die Drehzahl als vertikale Primärachse angeordnet.
25.06.2011 08:28:33
Thread-ID: 1219617
13 Beiträge
Max in VBA
Frank

Hallo an Alle,
kurze Frage ich habe in VBA bspw. a, b, c .... n Werte die direkt in VBA berechnet werden. Wie bekomme ich hier den Maximalwert heraus?
Max(a,b,c) funtioniert leider nicht.
Viele Grüße,
Frank
09.09.2011 10:43:40
Thread-ID: 1229209
3 Beiträge
Max Wert in VBA
udo

Hallo Forum Experten,
könntet Ihr mir bitte helfen ?
Bräuchte einen kleinen Code der folgendes ausspuckt :
In Spalte 1 ( A7:A1000 ) stehen Positionsnummern von den Einträgen in den jew. Zeilen.
unabhängig davon in welcher Zeile ein Eintrag eingegeben wird, sollte dann der Bereic...
30.09.2011 09:47:28
Thread-ID: 1232077
3 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
5
18
7
9
7
4
5
12
2
2
3
12
7
5
18
8
1
6
2
3
4
26
9
8
7