Office: Formeln in vba umwandeln

Helfe beim Thema Formeln in vba umwandeln in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Semxx1, ich hatte gehofft, Du würdest dies nach eingehender Beschäftigung aus den Kommentaren herauslesen können (dafür hatte ich die ja... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Semxx1, 22. November 2011.

Seite 2 von 3

EARLFRED

EarlFred

Formeln in vba umwandeln

Hallo Semxx1,

ich hatte gehofft, Du würdest dies nach eingehender Beschäftigung aus den Kommentaren herauslesen können (dafür hatte ich die ja geschrieben).

Schau hier (Festlegung Kopierbereich):
Code:

'Schnittmenge aus
'Bereich A3:C(letzteZeile)
'+ Bereich "alle sichtbaren Zellen
'+ benutzter Bereich
Set rngCopy = Intersect( _
.Range("A3:C" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

(Soll z. B. nur Spalte A kopiert werden, ändere diesen Teil in
.Range("A3:A" & Rows.Count), _
Einfügebereich:
Rot markiert die Einfügespalte
.Cells(14 + (i - 1) * 23, 1).PasteSpecial _

Grüße
EarlFred

EarlFred, 27. November 2011

#16
SEMXX1

Semxx1

das hatte ich schon gesehen. aber nur zum verständnis.....muss ich dann theoretisch für jede spalte das makro kopieren? sofern die spalten nicht nacheinander gebraucht werden.....

also ich meine diesen teil

'Schnittmenge aus
'Bereich A3:C(letzteZeile)
'+ Bereich "alle sichtbaren Zellen
'+ benutzter Bereich
Set rngCopy = Intersect( _
.Range("A3:C" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)

Semxx1, 27. November 2011

#17
EARLFRED

EarlFred

Hallo Semxx1,

muss ich dann theoretisch für jede spalte das makro kopieren? sofern die spalten nicht nacheinander gebraucht werden.....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein, nicht das ganze Makro, sondern nur die Teile, in denen tatsächlich kopiert und eingefügt wird!
Wenn ein Muster erkennbar ist, wäre auch eine Schleife denkbar. Kann ich aber nicht wissen.

Grüße
EarlFred

EarlFred, 28. November 2011

#18
SEMXX1

Semxx1

Formeln in vba umwandeln

danke. ich werde dir feedbackl geben.
sorry wenn meine fragen manchmal blöd klingen......aber diese ganzen makros sind wie chinesisch für mich ;-)

Semxx1, 28. November 2011

#19
SEMXX1

Semxx1

ich glaub ich bin zu blöd.....was habe ich da falsch kopiert/ eingefügt?
ich wollte in Spalte E Daten aus der 10ten Spalte haben

Code:

Option Explicit
Sub Semxx1()
Dim i As Long
Dim rngCopy As Range
For i = 1 To 3

With Worksheets("Tagesbericht")
.Range(.Cells(14 + (i - 1) * 23, 1), .Cells(31 + (i - 1) * 23, 4)).ClearContents
End With

With Worksheets("Daten")
.Rows(2).AutoFilter Field:=1, Criteria1:=i & "00"
.Rows(2).AutoFilter Field:=2, Criteria1:=CDate(Worksheets("Tagesbericht").Range("C7"))
Set rngCopy = Intersect( _
.Range("A3:C" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)

End With

If Not rngCopy Is Nothing Then
rngCopy.Copy
With Worksheets("Tagesbericht")
.Cells(14 + (i - 1) * 23, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

With Worksheets("Daten")
.Rows(2).AutoFilter Field:=1, Criteria1:=i & "00"
.Rows(2).AutoFilter Field:=2, Criteria1:=CDate(Worksheets("Tagesbericht").Range("C7"))
Set rngCopy = Intersect( _
.Range("E3:E" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)

End With

If Not rngCopy Is Nothing Then
rngCopy.Copy
With Worksheets("Tagesbericht")
.Cells(14 + (i - 1) * 23, 10).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

End With
End If
Next i

Set rngCopy = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Semxx1, 28. November 2011

#20
SEMXX1

Semxx1

Hi EarlFred.

diese Makro ist komplett falsch aufgebaut. Da bist du aber nicht schuld sondern ich!!!! weil ich das Pferd falsch aufgesattelt habe. ich bitte um entschuldigung und werde so schnell wie möglich eine neue Datei reinstellen. bitte verschwende erstmal keine zeit mehr dran.

Semxx1, 28. November 2011

#21
EARLFRED

EarlFred

Hallo Semxx1,

bitte verschwende erstmal keine zeit mehr dran.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schon passiert *wink.gif* Ich habe mal die Blöcke markiert. Schau mal, ob's hilft.

Code:

Option Explicit
Sub Semxx1b()
Dim i As Long
Dim rngCopy As Range
For i = 1 To 3
'Inhalte alter Ausgabe löschen
With Worksheets("Tagesbericht")
.Range(.Cells(14 + (i - 1) * 23, 1), .Cells(31 + (i - 1) * 23, 10)).ClearContents
End With

'Filter setzen
With Worksheets("Daten")
.Rows(2).AutoFilter Field:=1, Criteria1:=i & "00"
.Rows(2).AutoFilter Field:=2, Criteria1:=CDate(Worksheets("Tagesbericht").Range("C7"))
End With

'--------------------------------------------------------
'Spalten A bis C nach Spalte 1
With Worksheets("Daten")
Set rngCopy = Intersect( _
.Range("A3:C" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)
End With
If Not rngCopy Is Nothing Then
rngCopy.Copy
With Worksheets("Tagesbericht")
.Cells(14 + (i - 1) * 23, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End With
End If
'--------------------------------------------------------
'nächster Block
'--------------------------------------------------------
'Spalte E nach Spalte 10

With Worksheets("Daten")
Set rngCopy = Intersect( _
.Range("E3:E" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)
End With

If Not rngCopy Is Nothing Then
rngCopy.Copy
With Worksheets("Tagesbericht")
.Cells(14 + (i - 1) * 23, 10).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End With
End If
'--------------------------------------------------------
'nächster Block....

Next i

Set rngCopy = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

EarlFred, 28. November 2011

#22
SEMXX1

Semxx1

Formeln in vba umwandeln

:-)

ich werde das Makro trotzdem nutzen, nur ich habe mit den Makro noch das Problem das er im Blatt Tagesbericht mit Maschine 100 anfängt. Ich würde es aber so haben das wenn ich die Maschine 100 in 250 ändere, dann soll er in der ersten tabelle die daten aus Maschine 250 einfügen und nicht immer mit 100 anfangen. je nachdem was in den zellen A12 oder A35 steht, soll er entsprechend die Daten rüber kopieren!

Es kommen ja noch weitere Tabellen, sowohl auch Spalten hinzu! Aber ich will und kann von dir nicht verlangen das Du mir die Datei komplett fertig machst. Außerdem will ich es ja auch selbst ein bißchen verstehen.

Lange rede, kurzer sinn......könntest Du das mit der Maschineauswahl nochmal ändern? Also im prinzip dient das blatt tagesbericht, ne art abfragetabellen.

Semxx1, 28. November 2011

#23
EARLFRED

EarlFred

Hallo Smexx1,

wenn Dir SQL-Abfragen scheinbar eher liegen als Excel (woher sollte ich das denn wissen?), lies Dir das mal durch:
Online - Excel Programmierung VBA Makro: ADO und Excel (1) - Kleines Vorwort und Einstieg

Da kannst Du gleich eine Abfrage aufbauen, wie gewünscht, und sparst Dir das Verstehenmüssen des Makros.

Grüße
EarlFred

EarlFred, 28. November 2011

#24
SEMXX1

Semxx1

Hi EarlFred,

ja genau deshalb habe ich ja auch geschrieben das ich das Pferd falsch aufgesattelt habe.......

ich habe mir das mal durchgelesen und verstehe nur Bahnhof *frown.gif*

Nicht um sonst schreibt der Autor "Aber ich gehe auch davon aus, dass Sie in VBA gut zu Hause sind und Umgang mit Range etc... setze ich absolut vorraus"

Ich finde dein Makro eigentlich gut, außer halt das er wie nicht wie oben beschrieben das Datum und die Maschinen Nr. welches in Zelle A12 oder A35 steht berücksichtig. Der Rest ist perfekt und funktioniert auch.

Wäre das ein großer Aufwand für dich das evtl doch zu ändern? Kann verstehen wenn Du keine Lust mehr drauf hast. DU würderst mir das Leben erleichtern. Du kannst mir glauben, wenn ich könnte würde ich das doch selber machen......

Deshalb möchte ich ja auch nur das Du den Code nur für zwei tabellen und ein paar spalte schreibst. In der Realität habe ich 20 Tabellen und ca. 30 Spalten......

Habe das ja versucht mit den FOrmeln zu lösen um hier keinen zu nerven, aber Excel rechnt und rechnet bei jeder Eingabe........teilweise bis zu 3 minuten.

Das ist das Problem......

Wie auch immer.....wünsche ich Dir noch einen schönen Abend.

Semxx1, 28. November 2011

#25
SEMXX1

Semxx1

Hallo Zusammen,

kann mir vielleicht jemand noch helfen? Sonst setzt ich den Status auf erledigt :-(

Gruß
Semxx1

Semxx1, 29. November 2011

#26
EARLFRED

EarlFred

Hallo Semmx1,

Sonst setzt ich den Status auf erledigt :-(
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist das eine Drohung oder ein Versprechen? *biggrin.gif*
Neben freiwilliger Hilfe hat ein Helfer ja auch mal eigene Interessen und Verpflichtungen, denen er nachgehen will / muss.... Also übe Dich in Geduld...

Code:

Option Explicit
Sub Semxx1c()
Dim i As Long
Dim rngCopy As Range
For i = 12 To Worksheets("Tagesbericht").Cells(Rows.Count, 1).End(xlUp).Row Step 23
'Inhalte alter Ausgabe löschen
With Worksheets("Tagesbericht")
.Range(.Cells(i + 2, 1), .Cells(i + 19, 10)).ClearContents
End With

'Filter setzen
With Worksheets("Daten")
.Rows(2).AutoFilter Field:=1, Criteria1:=Worksheets("Tagesbericht").Cells(i, 1)
.Rows(2).AutoFilter Field:=2, Criteria1:=CDate(Worksheets("Tagesbericht").Range("C7"))
End With

'--------------------------------------------------------
'Spalten A bis C nach Spalte 1
With Worksheets("Daten")
Set rngCopy = Intersect( _
.Range("A3:C" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)
End With
If Not rngCopy Is Nothing Then
rngCopy.Copy
With Worksheets("Tagesbericht")
.Cells(i + 2, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End With
End If
'--------------------------------------------------------
'nächster Block
'--------------------------------------------------------
'Spalte E nach Spalte 10

With Worksheets("Daten")
Set rngCopy = Intersect( _
.Range("E3:E" & Rows.Count), _
.Cells.SpecialCells(xlCellTypeVisible), _
.UsedRange)
End With

If Not rngCopy Is Nothing Then
rngCopy.Copy
With Worksheets("Tagesbericht")
.Cells(i + 2, 10).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End With
End If
'--------------------------------------------------------
'nächster Block....

Next i

Set rngCopy = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

EarlFred, 29. November 2011

#27
SEMXX1

Semxx1

Formeln in vba umwandeln

*grins *grins *grins *grins
nein drohung natürlich nicht *wink.gif*

Danke. ich werd berichten *cool.gif*

Semxx1, 29. November 2011

#28
SEMXX1

Semxx1

unglaublich :-) es funktioniert!!!!!!!!!!!!!!!!! werde jetzt auf dein letzten makro aufbauen und die tabelle erweitern.

eine frage hätte ich nur noch. zwischen den tabellen habe ich aktuell zwei leerzeilen. möchte gerne 5 leerzeilen haben weil ich da unter anderem noch summenzeilen brauche. an welcher zahl drehe ich rum?
hier?

Code:

With Worksheets("Tagesbericht")
.Range(.Cells(i + 2, 1), .Cells(i + 19, 10)).ClearContents
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Semxx1, 29. November 2011

#29
EARLFRED

EarlFred

Hallo Semxx1,

nein, hier:
Code:

For i = 12 To Worksheets("Tagesbericht").Cells(Rows.Count, 1).End(xlUp).Row Step 23
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

12 ist die Zeile der ersten Überschrift (dort, wo die Maschinennummer steht),
Step 23 ist der Zeilenversatz zur nächsten Überschrift.

Grüße
EarlFred

EarlFred, 29. November 2011

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Formeln in vba umwandeln

Die Seite wird geladen...

Formeln in vba umwandeln - Similar Threads - Formeln vba umwandeln
runterziehen von Formeln per VBA
in Microsoft Excel Hilfe
runterziehen von Formeln per VBA: Guten Morgen gemeinsam, ich habe 18 Spalten (A:R)in einem Tabellenblatt ("WSTD") die Formel enthalten. Teilweise sind es Verknüpfungen (A: D) zu einem anderen TB (Für alle), teilweise aber auch...
Formeln aus zellen in andere Tabelle mit vba kopieren
in Microsoft Excel Hilfe
Formeln aus zellen in andere Tabelle mit vba kopieren: Hi Leute, ist bestimmt eine ganz simple Angelegenheit. hab im moment diesen Code Sheets("Tabelle 2").Range("C5") = ActiveSheet.Range("B105") dadurch werden mir Werte aus einem anderen Sheet...
Suchen und Ersetzen in Formeln per VBA
in Microsoft Excel Hilfe
Suchen und Ersetzen in Formeln per VBA: Hallo Zusammen, ich verwende eine Analysedatenbank, die eine Formelanbindung an Excel hat. Nun hat sich die Struktur dieser Datenbank geändert uns somit sind alle Formeln in allen Excelberichte...
absolute Zellbezüge in VBA-Formeln
in Microsoft Excel Hilfe
absolute Zellbezüge in VBA-Formeln: Hallo, ich nutze seit einigen Tagen Excel 2010 und stoße jetzt immer wieder auf scheinbare Neuerungen. Jetzt z.b. hatte ich ein Problem mit einer SVERWEIS-Formel, die per VBA in eine Zelle...
VBA: Formeln kopieren/begrenztes Einfügen
in Microsoft Excel Hilfe
VBA: Formeln kopieren/begrenztes Einfügen: Hallo Liebe Forummitglieder! Ich habe eine Frage bezüglich eines Makros. Ich habe ein Makro, welches die Formeln aus bestimmten Spalten kopiert und darunter einfügt. Alles schön und gut,...
VBA - Formeln relativ vs absolut
in Microsoft Excel Hilfe
VBA - Formeln relativ vs absolut: Hallo, ich benutze folgende Formel (die auch das tut was sie soll): =SUMME(INDIREKT(ADRESSE(42;VERGLEICH(C106;38:38;0))):INDIREKT(ADRESSE(42;VERGLEICH(F106;38:38;0)))) In VBA (mit...
Formeln in dynamischer Liste mittels VBA
in Microsoft Excel Hilfe
Formeln in dynamischer Liste mittels VBA: Hallo Forum, in Excel 2007 habe ich eine Tabelle, die sich dynamisch in der Zeilenanzahl verhält. Es können z.B. mal 50 Zeilen sein oder mal 100, je nach Datenmenge. Mittels VBA habe ich...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden