Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoFill funktioniert nicht

Forumthread: AutoFill funktioniert nicht

AutoFill funktioniert nicht
09.06.2014 17:15:37
peter

Hey Leute,
ganz schnelle Frage, denn ich habe folgendes Problem:
Dim strMaxrow as String
strMaxrow = Worksheets("Tabelle1").Range("B1").End(xLDown).Row
With Worksheets("Tabelle1")
.Range("C1").FormulaLocal = "=WENN(B2="""";"""";JAHR(B2))"
.Range("C1").AutoFill Destination:=Range("C1:C" & strMaxrow & "")
End With
Jetzt sagt er mir "Die AutoFill-Methode des Range-Objekts konnte nicht ausgeführt werden." ... Was ist da los? :(
Danke for Feedback!
Gruß
Pete

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AutoFill funktioniert nicht
09.06.2014 17:19:39
hary
Moin Pete 
=Range("C1:C" & strMaxrow )

sollte klappen.
gruss hary

AW: AutoFill funktioniert nicht
09.06.2014 17:23:28
peter
Danke für das schnelle Feedback, aber funktioniert immer noch nicht ... :(

AW: Zusatz
09.06.2014 17:22:30
hary
Moin Nochmal
ist noch was verschwunden. Row gibt eine Zeilennummer wieder. 
Dim strMaxrow as Long

gruss hary

Anzeige
AW: Zusatz
09.06.2014 17:25:16
peter
Auch als Long funktioniert es nicht.

AW: sollte aber klappen
09.06.2014 17:29:21
hary
Moin nochmal 
Dim strMaxrow As Long
With Worksheets("Tabelle1")
strMaxrow = .Range("B1").End(xlDown).Row
.Range("C1:C" & strMaxrow).FormulaLocal = "=WENN(B2="""";"""";JAHR(B2))"
End With

gruss hary

Anzeige
AW: sollte aber klappen
09.06.2014 17:32:46
peter
aaahhhh ja jetzt hab ich es, ja so funktioniert das. Super auch noch ein Zeile kürzer, wieder was gelernt! Danke!

AW: Dein Code...
09.06.2014 17:38:57
hary
Moin
klappt aber auch. 
Dim strMaxrow As Long
strMaxrow = Worksheets("Tabelle1").Range("B1").End(xlDown).Row
With Worksheets("Tabelle1")
.Range("C1").FormulaLocal = "=WENN(B2="""";"""";JAHR(B2))"
.Range("C1").AutoFill Destination:=Range("C1:C" & strMaxrow)
End With

gruss hary

Anzeige
AW: da fehlt aber noch die Tabellenblattangabe
09.06.2014 21:22:50
Daniel
vor der Range der Autofill-Destination:
.Range("C1").AutoFill Destination:=.Range("C1:C" & strMaxrow)
Gruß Daniel

AW: da fehlt aber noch die Tabellenblattangabe
10.06.2014 07:08:55
hary
Moin Daniel
Jepp, hast recht. Hab durch die Sonne und den kleinen Bildschirm den letzten Punkt uebersehen.
gruss hary

;

Forumthreads zu verwandten Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Makro mit Tastenkombination aufrufen?
Micha

Hallo liebe Spezialisten,
wie kann ich ein bestehendes Makro mit einer Tastenkombination aufrufen (Strg.X)
Bei dem Makrorecorder kenne ich die Möglichkeit, aber wie kann ich das bei einem schon bestehenden Code ändern.
Gruß
Micha
15.09.2008 12:56:00
Thread-ID: 1009761
4 Beiträge
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Anzeige
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Anzeige
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Anzeige
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige