54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Moderator: ModerationP

54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 10:38

Hallo ,eine frage bitte
Zuletzt geändert von longman2 am 17. Jul 2019, 23:36, insgesamt 2-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon snb » 17. Jul 2019, 10:47

Verzichte auf 'Controlsource'.
Zuletzt geändert von snb am 17. Jul 2019, 11:00, insgesamt 1-mal geändert.
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7231
Registriert: 25. Sep 2014, 16:37

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon slowboarder » 17. Jul 2019, 10:55

Hi
bei sowas stellt sich die frage, ob die Userform überhaupt sinnvoll ist und ob man das ganze nicht besser direkt in einem tabellenblatt abbildet.
Gruß Daniel
slowboarder
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 26253
Registriert: 18. Apr 2009, 13:33

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 11:04

snb hat geschrieben:Verzichte auf 'Controlsource'.
Zuletzt geändert von longman2 am 17. Jul 2019, 23:36, insgesamt 1-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 11:12

[quote="slowboarder"]Hi
Zuletzt geändert von longman2 am 17. Jul 2019, 23:37, insgesamt 2-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon snb » 17. Jul 2019, 11:15

Code: Alles auswählen
Private sub Userform_Initialize()
  sn=sheet1.cells(1).resize(9,6)

  for j=1 to 54
    Me("Textbox_" & format(j,"00")=sn((j-1)\6+1,(j-1)mod 6+1)
  next
End Sub


Code: Alles auswählen
Sub cmd_Save_Click()
  redim sn(8,5)

  for j=0 to 53
    sn(j\6,j mod 6)=Me("Textbox_" & j+1)
  next

  sheet1.cells(1).resize(9,6)=sn
next
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7231
Registriert: 25. Sep 2014, 16:37

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 11:55

Im mom alles klar danke für die Hilfe melde mich später lg
Zuletzt geändert von longman2 am 17. Jul 2019, 15:22, insgesamt 1-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon HKindler » 17. Jul 2019, 13:21

Hi longman2,

ich verfolge deine Post schon eine Weile und habe dir auch schon (mühsam) weiter geholfen. Daher ein ernst gemeinter Ratschlag: klicke mal auf den Link in snbs Signatur und handle!

@snb: du solltest den Link einmal aktualisieren...
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3897
Registriert: 04. Jul 2013, 09:02

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon snb » 17. Jul 2019, 13:32

@HKindler

In VBA hat sich kaum etwas geändert. Die Grundlagen (und darum handelt es sich hier) gar nicht. :wink:
snb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 7231
Registriert: 25. Sep 2014, 16:37

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon HKindler » 17. Jul 2019, 14:31

@snb

ja, aber es gibt eine Neuauflage des Buches und wer weiß, wie lange der Hinweis bei Amazon noch angezeigt wird, bzw. wie lange der Link überhaupt noch gültig ist.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3897
Registriert: 04. Jul 2013, 09:02

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 15:19

Hallo an alle ....danke
und danke für doch euer Hilfe auch gleichzeitig.
Lg H.
Zuletzt geändert von longman2 am 18. Jul 2019, 00:00, insgesamt 1-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 15:40

Nur noch eins Bitte ....

Danke ....
Zuletzt geändert von longman2 am 18. Jul 2019, 00:01, insgesamt 1-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon longman2 » 17. Jul 2019, 19:15

Hallo also das zum erstmaligen testen ist ja fertig scheint auch stabil zu sein, die andere frage ist ob der Code ( gekürzt werden kann) mit einer Schere gehts ja nicht :/
Zuletzt geändert von longman2 am 18. Jul 2019, 00:02, insgesamt 2-mal geändert.
longman2
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 36
Registriert: 07. Jul 2019, 17:59

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon knobbi38 » 17. Jul 2019, 21:15

Hallo longman2,

zumindest den Part mit TextBox1 = Sheets("Tabelle1").Cells(13, 25) ff. würde ich etwas umschreiben:
Code: Alles auswählen
Private Sub UpdateTextBoxes()
  Const CTL_NAME As String = "TextBox"
  Const WKS_NAME As String = "Tabelle1"
 
  Dim oWks As Worksheet
  Dim lRow As Long, lCol As Long
  Dim i As Long
 
  Set oWks = Sheets(WKS_NAME)
  i = 1
 
  For lRow = 13 To 21
    For lCol = 25 To 30
      GetControlByIndex(CTL_NAME, i).Text = oWks.Cells(lRow, lCol)
      i = i + 1
    Next lCol
  Next lRow
End Sub

Private Function GetControlByIndex(ByVal Basename As String, ByVal Index As Long) As Control
  Set GetControlByIndex = Me.Controls(Basename & CStr(Index))
End Function


Ulrich
knobbi38
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1490
Registriert: 02. Jul 2015, 14:23

Re: 54 Textboxen a Zelle = a Textbox (Absturz von Excel)

Beitragvon juvee » 17. Jul 2019, 21:39

Hi,

ich wiederhole mich nur ungern, hatte bereits in einem anderen Thread klickst du hier von dir schon einmal ( anders ) gesagt:

"Mache dir erst einmal selber klar, was du INSGESAMT erreichen willst und beteilige die Helfer am Gesamtprojekt".

Mich kotzt deine Salamitaktik hier im Forum an!

Ohne Gruss

Juvee
Ich habe "juvee" am 25.01.2018 gegoogelt. Ich distanziere mich von den ungefähr 252 Einträgen ausdrücklich.
Da binich nich dabei, dat is pri ima, vivaaaaa....lalalala!
juvee
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2619
Registriert: 05. Jun 2014, 12:48

Nächste

Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: TommyDerWalker und 17 Gäste