Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
664to668
664to668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte per VBA an eine Function übergeben

Forumthread: Zellinhalte per VBA an eine Function übergeben

Zellinhalte per VBA an eine Function übergeben
10.09.2005 10:56:58
Dieter
Hallo,
ich hoffe, dass mir jemand einen Tipp geben kann.
Ich möchte aus einer Excel-Tabelle per VBA ca. 70 Zellinhalte in 70 Variablen übernehmen, um diese anschließend an ein Worddokument per Function zu übergeben.
Diese Function existiert und funktioniert auch.
Für jede Hilfe bin ich dankbar.
Gruß Dieter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 11:04:41
Ramses
Hallo
wozu 70 Variablen ?
Schreib die Daten in Array und lies sie dann wieder aus
Gruss Rainer
AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 11:10:52
Dieter
Hallo,
danke für die schnelle Antwort. Leider kenn ich mich mit Array´s noch nicht aus.
Kannst mir bitte mal ein Beispiel posten.
Vielen Dank.
Gruß Dieter
AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 11:15:10
Ramses
Hallo
Mach ich gerne, wenn du ein Beispiel schreibst wo deine Daten stehen, die du einlesen willst und wie du die Daten bisher an das Word Makro übergibst
Gruss Rainer
Anzeige
AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 11:43:18
Dieter
Hallo Rainer,
hier beispielhaft mein Code.
Gruß Dieter

Private Sub CommandButton1_Click() ' Mietvertrag (Word) erzeugen
sheets("Mietvertraege").select
z = ActiveCell.Row
' hier möchte ich ca. 70 Wert aus der aktiven Zeile einlesen (wert1,wert2,wert3....)
und anschließend an die Function >New_Mietvertrag< übergeben.
Und das ist momentan mein Problem.
X = New_Mietvertrag(wert1,wert2,wert3.......)
End Sub

-------------------------------------------------------------
Public Function New_Mietvertrag(text1,text2 ,text3........)
' hier wird ein Worddokument (dot) aufgerufen, in dem ca. 70 Textmarken definiert sind
if TypeName(m_objWDDoc) = "Document" Then
Miet_TextToBookmarks "Name_V", text1 ' aus Zelle A1
Miet_TextToBookmarks "PLZ_V", text2 ' aus Zelle A2
Miet_TextToBookmarks "Ort_V", text3 ' aus Zelle A3
.
.
.
End If
End Function
Sub Miet_TextToBookmarks(ByVal strBMName As String, _
ByVal strBMText As String)

Dim objBMRange As word.Range 'Range-Objekt, hier Textmarken-Bereich

With m_objWDDoc
'Wenn die Textmarke existiert...
If .Bookmarks.Exists(strBMName) Then
'Verweis auf den Textmarke-Bereich setzen
Set objBMRange = .Bookmarks(strBMName).Range
'Text zuweisen
objBMRange.text = strBMText
'Textmarke neu definieren
.Bookmarks.Add name:=strBMName, Range:=objBMRange
'Verweis (Speicher) freigeben
Set objBMRange = Nothing
End If
End With
End Sub
Anzeige
AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 11:52:59
Ramses
Hallo
mal ein Beispiel
Option Explicit
Option Base 1
Sub Fill_70Var_Arr()
    Dim i As Integer
    Dim wordArr(70)
    For i = 1 To 70
        wordArr(i) = i
        'oder
        'wordArr(i) = Cells(i, 1)
    Next i
    Give_Arr_Back wordArr()
End Sub


Sub Give_Arr_Back(inVarArr() As Variant)
    Dim i As Integer
    Dim tmpStr As String
    For i = 1 To UBound(inVarArr)
        tmpStr = tmpStr & inVarArr(i) & ","
        If i Mod 10 = 0 Then
            tmpStr = tmpStr & vbCrLf
        End If
    Next i
    MsgBox tmpStr
End Sub
Die Daten kannst du Zellweise in das Array einlesen und dann mit dem Wordmakro der Reihe nach wieder auslesen.
objBMRange.text = inputVar(5)
Gruss Rainer
Anzeige
;

Forumthreads zu verwandten 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
Max Min in VBA
Lars

Hallo zusammen,
da meine Frage auf Grund einer falschen Problembeschreibung noch nicht beantwortet ist, hier nochmal:
Ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte in mehreren Zeilen. Übe...
13.11.2008 14:59:44
Thread-ID: 1024240
19 Beiträge
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
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
In Spalte B einen Wert mittels VBA setzen
Josef

Hallo!
Ich habe nur in der Zelle B1 den Wert "ü" stehen.
Ab der 2.Zeile habe ich ca. 15000 Datensätze stehen.
Mit dem Autofilter suche ich jetzt nach dementsprechenden Werten in anderen Spalten.
Wenn jetzt z. B. 10 Werte gefunden werden, habe ich nun 10 Datensätze und möchte in...
21.01.2010 14:36:58
Thread-ID: 1131799
7 Beiträge
Suche unterschiedliche Max-Wert in einer Spalte
Volker

Hallo zusammen,
in Spalte T stehen Hunderte von siebenstelligen Artikelnummern. Die haben je nach Sparte eigene Nummerkreise:
Sparte A (1.xxx.xxx), Sparte B (2.xxx.xxx) und Sparte C (3.xxx.xxx).
Es kommen innerhalb der Sparten regelmaessig weitere Artikel hinzu.
Suche jeweils di...
14.03.2011 11:00:24
Thread-ID: 1205567
6 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
Anzeige
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
Anzeige
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
Anzeige
VBA Formel ändern nach einfügen einer Spalte
Timonski

Servus...
ich hab in meiner Tabelle viele VBA Formeln, z.b. VLookup... oder mit Cells(r, 5)...
wenn ich jetzt eine Spalte einfüg... nehmen wir mal an zwischen 3 und 4... dann heißt ja die Spalte 5 nun 6...
d.h. die Formel mit cells(r, 5) stimmt ja nicht mehr.. die sollte ja Cells(r,...
23.03.2012 15:25:44
Thread-ID: 1256320
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige