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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba codes verbinden??

Forumthread: vba codes verbinden?

vba codes verbinden?
13.10.2008 23:37:49
alex
Hallo zusammen,
Wie kann man diese Codes kombinieren?
Code 1 (per CommandButton): wird der Bereich A16:L16 im Tabellenblatt „Grundformular“ kopiert und schaltet dann in das Tabellenblatt Übersicht
Sub Eintragungenübernehmen()
Range("A16:L16").Select
Selection.Copy
Sheets("Übersicht").Select
End Sub


In „Übersicht“ wähle ich per Doppelklick auf Zellen in Spalte A verschiedene Tabellenblätter an. (Die kopierten Daten befinden sich noch im Kopierspeicher.)
Code 2:
'zur Ansteuerung einzelner Trainingsnachweise mit Doppelklick


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name  ActiveSheet.Name Then
Sheet.Visible = False
End If
Next
If ActiveCell.Column = 1 Then
Sheets(ActiveCell.Row).Visible = True
Sheets(ActiveCell.Row).Activate
Cancel = True
End If
End Sub


Mit Doppelklick habe ich nun das ausgewählte Tabellenblatt.
Um die letzte beschriebene Zeile auf dem aktiven Tabellenblatt zu ermitteln und in der nächsten die Daten einzufügen
Code 3:
Range(„A65536“).End(xlUp).Offset(1,0).Select
Selection.Paste
Wie kann ich Code2 und Code3 verbinden?
Für eure Antworten dankbar
Alex

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: vba codes verbinden?
14.10.2008 11:56:00
fcs
Hallo Alex,
den ersten Code brauchst du eigentlich nicht, da du immer den gleichen Datenbereich aus dem Grundformular kopieren willst.
Code 2 und 3 kann man dann etwa wie folgt zusammen.
Gruß
Franz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name  ActiveSheet.Name Then
Sheet.Visible = False
End If
Next
If ActiveCell.Column = 1 Then
Cancel = True
Sheets(ActiveCell.Row).Visible = True
Sheets(ActiveCell.Row).Activate
If MsgBox(Prompt:="Daten aus Grundformular Zeiel 16 eintragen?", _
Buttons:=vbYesNo, _
Title:="Daten aus Grundformular kopieren") = vbYes Then
'Daten aus Grundformular kopieren
Worksheets("Grundformular").Range("A16:L16").Copy _
Destination:=ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Zeilennummer anpassen
If IsNumeric(ActiveSheet.Range("A65536").End(xlUp)) Then
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = _
ActiveSheet.Range("A65536").End(xlUp).Value
Else
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = 1
End If
End If
End If
End Sub


Anzeige
AW: vba codes verbinden
14.10.2008 12:23:00
alex
Hi Franz,
danke für deine Unterstützung. Klappt jetzt so wie ich mir das gewünscht habe. War echt wichtig für mich.
Nur noch eines:
An welcher Stelle des Codes füge ich ein, dass er wieder auf das Blatt "Übersicht" zurückkehrt?
Danke nochmal,
alex
AW: vba codes verbinden
14.10.2008 13:04:00
fcs
Hallo Alex,
Anpassung: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name  ActiveSheet.Name Then
Sheet.Visible = False
End If
Next
If ActiveCell.Column = 1 Then
Cancel = True
Sheets(ActiveCell.Row).Visible = True
Sheets(ActiveCell.Row).Activate
If MsgBox(Prompt:="Daten aus Grundformular Zeiel 16 eintragen?", _
Buttons:=vbYesNo, _
Title:="Daten aus Grundformular kopieren") = vbYes Then
'Daten aus Grundformular kopieren
Worksheets("Grundformular").Range("A16:L16").Copy _
Destination:=ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
'Zeilennummer anpassen
If IsNumeric(ActiveSheet.Range("A65536").End(xlUp)) Then
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = _
ActiveSheet.Range("A65536").End(xlUp).Value + 1
Else
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = 1
End If
End If
Sheets("Übersicht").Activate
End If
End Sub


Gruß
Franz

Anzeige
Danke!!! Funzt. o.T.
14.10.2008 14:31:54
alex
.
;

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Makro: Mail wird nicht erzeugt
Ralf

Hallo,
das folgende Makro blokiert in der Zeile 'Set mailitem = outobj.createitem(0)'
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = outobj.createitem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog"...
17.09.2008 11:49:20
Thread-ID: 1010312
5 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Fehler in VBA-Code?
David

Und nochmal Hallo.
Und schon wieder mit einem sehr "mysteriösen" Fehler:
Option Explicit Sub test() Dim zeile, i As Long Dim wks As Worksheet Dim wkb As Workbook Dim quelle As String For Each wkb In Workbooks If Right(wkb.Name, 4) = ".csv" And InStr(wkb.Name, "Pliste") > 0 Then que...
22.09.2008 12:14:00
Thread-ID: 1011440
5 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Nicht geschützte Zelle wird nach Makro gesperrt
Gesa

Hallo liebes Forum,
ich habe das Makro "automatische Zeilenhöhe bei verbunden Zellen" in einer anderen Datei verwendet - hier läuft es einwandfrei.
Bei der beigefügten Datei ist es immer so, dass wenn in geschützten Zellen (die von der Grundeinstellung nicht geschützt sind) etwas eingeg...
16.10.2008 13:40:48
Thread-ID: 1016850
5 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 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